綾小路龍之介の素人思考

[ファイル編集] ファイル中の特定のレコードだけ出力

C:\WINDOWS\デスクトップ>perl -F"<>" -alne "print\"@F[1]\";" b.txt
Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)
Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; Win 9x 4.90)
Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; Win 9x 4.90; Lunascape 2.0.3)
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; (R1 1.5); .NET CLR 1.1.4322) Sleipnir/2.00
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.0.3705; .NETCLR 1.1.4322)
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322; InfoPath.1)
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; iebar)
Mozilla/5.0 (Macintosh; U; PPC Mac OS X; ja-jp) AppleWebKit/312.5.1 (KHTML, like Gecko) Safari/312.3.1
C:\WINDOWS\デスクトップ>
open IN,"b.txt";
@F=<IN>;
chomp @F;close IN;
for ( $i=0 ; $i<=$#F ; $i++ ) {
        @H = split(/<>/,$F[$i]);
        for ( $j=0 ; $j<=$#H ; $j++ ){
                $G[$i][$j]=$H[$j];
        }
}
for ( $i=0 ; $i<=$#G ; $i++ ) {
        for ( $j=0 ; $j<=$#{$G[$i]} ; $j++ ){
                print "$G[$i][$j]\n";
        }
}

ソーシャルブックマーク

  1. はてなブックマーク
  2. Google Bookmarks
  3. del.icio.us

ChangeLog

  1. Posted: 2007-11-27T07:58:58+09:00
  2. Modified: 2007-11-27T04:47:32+09:00
  3. Generated: 2017-08-24T23:09:21+09:00