perl初心者BLOG

2009-05-31

[][]最短一致 19:43

・サンプルコード

~$ cat hoge.pl
#!/usr/local/bin/perl
$html =<<EOT;
<html>
        <head>
        </head>
        <body>
        <font color=red>hello</font><b>goobdy</b>
        </body>
</html>
EOT
while($html =~ /<.+?>/g) {
        print $&, "\n";
}

・実行結果

~$ ./hoge.pl
<html>
<head>
</head>
<body>
<font color=red>
</font>
<b>
</b>
</body>
</html>