Thread Substring auf Vorhandensein überprüfen (9 answers)
Opened by Thomas at 2010-05-17 16:39

topeg
 2010-05-17 16:56
#137192 #137192
User since
2006-07-10
2611 Artikel
BenutzerIn

user image
Man kann die Zeile auch direkt so zerlegen wie man es will:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10

if(my @elements=$line=~m!(\d+)\s+(\d+)\s+(\w+)\s+(\d+/\d+)\s+(\d+,\d+)\s+(\d+,\d+\w+)\s+(\d+,\d+)!)
{
  print "@elements\n";
}
elsif(my @elements=$line=~m!(\w+)\s+(\d+,\d+\w+)!)
{
  print "@elements\n";
}
else
{ print "Unbekanntes Zeilenformat\n"; }


oder
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11

my @elements=split(/\s+/,$line);
if(@elements==6)
{
  print "@elements\n";
}
elsif(@elements==3)
{
  print "@elements\n";
}
else
{ print "Unbekanntes Zeilenformat\n"; }

Last edited: 2010-05-17 16:57:47 +0200 (CEST)

View full thread Substring auf Vorhandensein überprüfen