while(my $line=<$data>)
{
chomp $line;
my @fields = split ",",$line;
my $type = $fields[2];
if($type eq "CHILD")
{
next;
}
# some code
}
Snažím sa preskočiť riadky, ktoré majú hodnotu v 3. stĺpci ako DETSKÉ .. ale nemôžem to urobiť. Čítam údaje zo súboru .csv.
odpovede:
1 pre odpoveď č. 1Tlač vyhlásení o ladení je veľmi dôležitá vec Perlu. Prosím, všimnite si
print "DEBUG type[$type]n";
nižšie.
Skúste teda toto:
while(my $line=<$data>) {
chomp $line;
my @fields = split /,/, $line;
my $type = $fields[2];
print "DEBUG type[$type]n";
}
Upravte svoj pôvodný POST pomocou riadkov DEBUG ...