Perl - プレーンテキスト備忘録

ファイルを読み込んで標準出力

open(INFILE,"<usr.dat"); # data.txtを読み込み形式(<)で開く
my @data = <INFILE>; # 配列@dataにファイルの中身全てを代入
close(INFILE);

for(my $i = 0; $data[$i]; $i++)
{
    printf("%5i: $data[$i]",$i);
}

「"」で囲まれたURLのみ抽出

my $data = '<a href="http://www.a.com">a</a><br><a href="http://www.b.com">b</a><br><a href="http://www.c.com">c</a><br><a href="http://www.d.com">d</a><br>';
my @splitdata = split('"',$data); # 「"」の部分でデータを分割して配列に代入
my @url; # URL格納配列

# splitdata配列がNULLになるまでループ
for(my $i = 0; $splitdata[$i]; $i++)
{

  # 「http://www」を含む場合URLとみなし、配列@urlに代入
  if($splitdata[$i] =~ /http:\/\/www/)
  {
  push(@url,$splitdata[$i]); # 配列の末尾にURLを挿入
  }

}

# @urlの配列数までループ。「$#配列名」は要素数を返す。
for(my $i = 0; $i <= $#url; $i++)
{

 # URLの中身を出力
 print("\$url[$i] = `$url[$i]`\n");

}

実行結果

   $url[0] = `http://www.a.com`
   $url[1] = `http://www.b.com`
   $url[2] = `http://www.c.com`
   $url[3] = `http://www.d.com`