Farid Hajji: Perl - Einführung, Anwendungen, Referenz
2., aktualisierte und erweiterte Auflage
Addison-Wesley Longman, ISBN 3-8273-1535-2
stringparts1.pl
#!/usr/local/bin/perl -w
# stringparts1.pl -- Zerlege einen String an bestimmen Positionen.
# Sinnvoll bei Feldern fester Laenge.
# 012345678901234567890123456789012345678
$input_line = "Feld1 Feld2 Feld3 Feld4 Feld5";
@fields = unpack("a10 a10 a5 x2 a5 x2 a5", $input_line);
foreach my $field (@fields) { print ">$field<\n"; }
# Ausgabe: >Feld1 <
# >Feld2 <
# >Feld3<
# >Feld4<
# >Feld5<
[Prev] [Up] [Relevant Chapter] [Next]
[Alte Quelle]
| Last modified: $Date: 2006/05/18 12:56:06 $ FH. Search :: Sitemap :: Disclaimer :: Copyright :: Privacy |
 |