初めてのPerl 第7章

練習問題をメモ。

ex07-1
#!/usr/bin/perl
use strict;

while (<>) {
    chomp;
    if (/fred/) {
        print "Matched: $`<$&>$'\n";
    } else {
        print "No match.\n";
    }
}
ex07-2
#!/usr/bin/perl
use strict;

while (<>) {
    chomp;
    if (/a+b*/) {
        print "Matched: $`<$&>$'\n";
    } else {
        print "No match.\n";
    }
}
ex07-3
#!/usr/bin/perl
use strict;

while (<>) {
    chomp;
    if (/\\*\**/) {
        print "Matched: $`<$&>$'\n";
    } else {
        print "No match.\n";
    }
}
ex07-4
#!/usr/bin/perl
use strict;

while (<>) {
    chomp;
    if (/(w|W)ilma/) {
        print "$_\n";
    }
}
ex07-5
#!/usr/bin/perl
use strict;

while (<>) {
    chomp;
    # /wilma.*fred|fred.*wilma/ で十分だった
    if (/.*wilma.*fred.*|.*fred.*wilma.*/) {
        print "$_\n";
    }
}

反省点

正規表現をもっとがんばりましょう。