[PERL] Vaag split probleem

[TrailBlazer]

Ik heb de volgende regel

code:

2002 01 24 09 35 29 : EM/NLUT15 FRUNI/110 DLCI/470 : Average Payload Size Received : 217

deze wil ik splitten op de : echt dit gaat totaal niet ik heb de volgende split gemaakt wat volgens mij gewoon moet werken.

code:

($date,$postition,$type,$value)=split(/:/,$line,4);

Wat zie ik over het hoofd

[Verwijderd]

Probeer de : te escapen split(/\:/, $line, 4);

Hier werkt het wel:

code:

$var = "2002 01 24 09 35 29 : EM/NLUT15 FRUNI/110 DLCI/470 : Average Payload Size Received : 217";

($date,$position,$type,$value)=split(/:/,$var, 4);

print "$date\n$position\n$type\n$value";

[TrailBlazer]

dit is mijn hele progje

code:

#!/usr/bin/perl -w
open (FILE,$ARGV[0]);
while ($line=<FILE>)
{
print $line;
($date,$postition,$type,$value)=split(/:/,$line, 4);

print "position $position\n";
}
close (FILE);

Overigens dat bestand wat ik open is wel enorm erg groot zeg maar zo'n 325000 regels en zon' 25 MB maar dat mag geen probleem zijn dacht ik

[Verwijderd]

$position != $postition

[TrailBlazer]

Op donderdag 24 januari 2002 11:52 schreef Zef het volgende:
$position != $postition

Stom Wat blijkt nu ik moet opeens de : escapen met een \ heb ik nog nooit hoeven doen.

code:

#!/usr/bin/perl -w
open (FILE,$ARGV[0]);
while ($line=<FILE>)
{
#print $line;
chomp $line;

($date,$position,$type,$value)=split(/\:/,$line, 4);

#print $line;
print "postion $position\n";
}
close (FILE);

[Verwijderd]

Hoeft niet, tenminste bij mij werkt het goed als je hem niet escaped

[TrailBlazer]

Op donderdag 24 januari 2002 12:16 schreef Zef het volgende:
Hoeft niet, tenminste bij mij werkt het goed als je hem niet escaped

Ja ikkke ook niet begrijpen maar anders werkt het echt niet. Ik heb al tig keer op deze sun dit gedaan zonder escape maar ja nu opeens wel nodig dus