Re: Split loop error with perl 5.8

Can you provide the exact code that produces the error? For exampe, the following code...

#! /usr/bin/perl -w

use strict;

my $x1 = 'aaa bbb cc';
my $x2 = 'aa, bb, cc';

print join( '-', split(/[\s,]+/, $x1)), "\n";  
print join( '-', split(/[\s,]+/, $x2)), "\n";
[download]

...produces the following output:...

aaa-bbb-cc
aa-bb-cc
[download]

So you must be doing something else (wrong)?

Oops, forgot to add, this is with 5.8.0 (albeit not redhat), to whit:

% perl -v

This is perl, v5.8.0 built for i386-freebsd-64int
[download]

Maybe they have applied some funky patches?

print@_{sort keys %_},$/if%_=split//,'= & *a?b:e\f/h^h!j+n,o@o;r$s-t%t#u'

Comment on Re: Split loop error with perl 5.8 Select or Download Code

Replies are listed 'Best First'.
Re: Split loop error with perl 5.8 by Anonymous Monk on Sep 25, 2003 at 14:27 UTC
I jsut had the same problem... `[root@gw /]# uname -a Linux gw 2.4.22 #8 SMP Wed Sep 24 13:53:53 EDT 2003 i686 i686 i386 GNU +/Linux [root@gw /]# perl -v This is perl, v5.8.0 built for i386-linux-thread-multi Copyright 1987-2002, Larry Wall [root@gw /]# cat test #!/usr/bin/perl $file = "/proc/net/snmp"; $ABC = 0; while ( $i ne 0 ) { &GET; $RATE = $FIELDS[3] - $ABC; $ABC = "$FIELDS[3]"; print "$RATE\n"; } sub GET { open (FILE, $file); @LINES = <FILE>; close (FILE); $LINE = $LINES[1]; @FIELDS = split(/ /, $LINE); sleep 1; }` [download] *NOTE - I had to remove the \s. look like perl 5.8.0 thats shipping with redhat 8.0 does not like splitting on a space using the \s RE _{janitored by ybiC: add balanced <code> tags around code block, as per Monastery convention}	[reply] [d/l]

Replies are listed 'Best First'.

Re: Split loop error with perl 5.8
by Anonymous Monk on Sep 25, 2003 at 14:27 UTC

I jsut had the same problem...

[root@gw /]# uname -a
Linux gw 2.4.22 #8 SMP Wed Sep 24 13:53:53 EDT 2003 i686 i686 i386 GNU
+/Linux
[root@gw /]# perl -v

This is perl, v5.8.0 built for i386-linux-thread-multi

Copyright 1987-2002, Larry Wall

[root@gw /]# cat test
#!/usr/bin/perl

$file = "/proc/net/snmp";
$ABC = 0;

while ( $i ne 0 ) {
  &GET;
  $RATE = $FIELDS[3] - $ABC;
  $ABC = "$FIELDS[3]";
  print "$RATE\n";
}

sub GET {
  open (FILE, $file);
  @LINES = <FILE>;
  close (FILE);
  $LINE = $LINES[1];
  @FIELDS = split(/ /, $LINE);
  sleep 1;
}
[download]

*NOTE - I had to remove the \s. look like perl 5.8.0 thats shipping with redhat 8.0 does not like splitting on a space using the \s RE

_{janitored by ybiC: add balanced <code> tags around code block, as per Monastery convention}

[reply]
[d/l]