Perl - soraka @ ウィキ

ある文字をファイルの中から探す

#!/usr/local/bin/perl -w
use strict;
if(@ARGV != 1){

       print "USAGE: ./prob18_0207.pl fileName\n";
       exit 1;

}
if(open(FILE, $ARGV[0])){

       while(my $line = <FILE>){
               if($line =~ /[a-zA-Z]{8,}?/){
                       print $line;
               }
       }

}else{

       print "$ARGV[0]: $!\n";
       print "USAGE: ./prob18_0207.pl fileName\n";
       exit 1;

}

ID=数字　の数字を抜き出す

 1 #!/usr/local/bin/perl -w
 2 use strict;
 3
 4 open(FILE, 'sample.txt');
 5 while(my $line = <FILE>){
 6         while($line =~ /ID=(\w+)/g){
 7                 print $1,"\n";
 8         }
 9 }

数字3つを別々に抜き出す

1 #!/usr/local/bin/perl -w
 2 use strict;
 3
 4 open(FILE, 'sample.txt') or die "$!";
 5 while(my $line =<FILE>){
 6         if($line =~ /(\d+), (\d+), (\d+)/){
 7                 print "height = $1\n";
 8                 print "weight = $2\n";
 9                 print "age = $3\n";
10         }
11 }

perlワンライナー

perl -i -pe 's/aaa/ccc/g' test.pl

• i でそのファイル自体を書き換え。-eで、そのあとに続くものをperlプログラムと認識する