ファイル関連

PerlのTips【目次】

トップページ -> Perl -> ファイル関連

読み込んだファイルの空白行を飛ばす

例えば以下のような、空白行が混ざったファイルから、文字のある行だけを表示したいとする

apple

lemon
coconut

mango

papaya

以下のプログラムでは，空白行を飛ばすことによって，文字のある行のみを表示している．

#! /usr/bin/perl
#test.pl 

open(IN, "test.txt");
open(OUT,">out.txt");

while(my $text = <IN>){

	#空白行なら次の行へ飛ばす（処理しない）
	if($text =~ /^\s*$/){
		next;
	}

	print "$text";
}

実行結果

$./test.pl
apple
lemon
coconut
mango
papaya

トップページ -> Perl -> ファイル関連

livedoor Wiki関連リンク

このページを編集するこのページを元に新規ページを作成

印刷する

コメント（0）

カテゴリ：
パソコン
総合

ファイル関連 - Masaの備忘録先頭へ

コメントをかく

名前	ユーザIDを使用しないで書き込む	ユーザーIDを使う	ログインする
備考	「http://」を含む投稿は禁止されています。
本文
利用規約をご確認のうえご記入下さい

Masaの備忘録

ファイル関連

ファイル関連

読み込んだファイルの空白行を飛ばす

コメントをかく

Menu

メニュー

メニューサンプル2

最近更新したページ

2014-08-02

2014-01-15

2013-11-28

2013-11-07

2013-11-02

2013-10-25

2013-10-24

2013-10-22

2013-10-21

2013-05-31

2013-05-19

2013-04-10

2013-01-18

2012-12-12

2012-09-12

2012-09-11

2012-08-31

最新コメント

2014-03-13

2014-02-06

2014-01-23

2014-01-21

2014-01-20

2013-12-08

2013-12-07

QRコード

アクセス解析中

Masaの備忘録

ファイル 関連

ファイル 関連

読み込んだファイルの空白行を飛ばす

コメントをかく

Menu

メニュー

メニューサンプル2

最近更新したページ

2014-08-02

2014-01-15

2013-11-28

2013-11-07

2013-11-02

2013-10-25

2013-10-24

2013-10-22

2013-10-21

2013-05-31

2013-05-19

2013-04-10

2013-01-18

2012-12-12

2012-09-12

2012-09-11

2012-08-31

最新コメント

2014-03-13

2014-02-06

2014-01-23

2014-01-21

2014-01-20

2013-12-08

2013-12-07

QRコード

アクセス解析中

ファイル関連

ファイル関連