Farid Hajji: Perl - Einführung, Anwendungen, Referenz
2., aktualisierte und erweiterte Auflage
Addison-Wesley Longman, ISBN 3-8273-1535-2
regexp-g-list.pl
#!/usr/local/bin/perl -w
# regexp-g-list.pl -- m//g im Listenkontext.
print "Input : "; chomp($input = <STDIN>);
print "Pattern : "; chomp($pat = <STDIN>);
@result = $input =~ /$pat/g; # Listenkontext
print "Found: ", join(', ', map { ">$_<" } @result), "\n";
[Prev] [Up] [Relevant Chapter] [Next]
[Alte Quelle]
| Last modified: $Date: 2006/05/18 12:56:04 $ FH. Search :: Sitemap :: Disclaimer :: Copyright :: Privacy |
|