Opened by Gabriel at 2008-09-18 12:10
User since
2008-09-15
12 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2008-09-15
12 Artikel
BenutzerIn
Guten Morgen!
Hat jemand ne Idee, wie ich die erste Zeile einer Datei auf das erste Zeichen überprüfen kann?
Wenn das erste Zeichen der ersten Zeile eine 1 ist, soll er nichts machen (exit), sonst soll er die Zeilennummern schreiben.
Irgendwie klappt das nicht...jemand ne Idee?
Vielen Dank
Gabriel
Hat jemand ne Idee, wie ich die erste Zeile einer Datei auf das erste Zeichen überprüfen kann?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
my @lines = <READ>;
my $i = 1;
foreach my $x (@lines)
{
if ($x =~ m/\A\1\A/)
{
print "JJAAA....es sind zahlen da, man braucht keine Zeilennummern mehr \n";
exit;
}
else
{
print WRITE "$i $_";
$i++;
}
}
Wenn das erste Zeichen der ersten Zeile eine 1 ist, soll er nichts machen (exit), sonst soll er die Zeilennummern schreiben.
Irgendwie klappt das nicht...jemand ne Idee?
Vielen Dank
Gabriel