http://www.perlmonks.org?node_id=932377


in reply to split line from one point

Please be more specific than "doesn't work". What happens? Do blue flames come out of your computer?

Anyway, the problem is likely that you call split in scalar context. Depending on your Perl version, that either puts the number of chunks into $a (newer perls), or does something very weird (in older perl, it writes the chunks to @_).

The solution is to call split in list context: 

my ($a) = split /T/;
print RE $a;

[download]
Perl 6 - second systems done right

Replies are listed 'Best First'.
Re^2: split line from one point
by Anonymous Monk on Oct 19, 2011 at 12:29 UTC

    thanks, i have this: read line <> on closed file handle IN at split.pl line 4.

[reply]
      That means that the first open() call failed. Either use autodie; in the beginning, or write your calls as 
      open my $IN, '<', 'transaction' or die "Cannot open 'transaction' for 
+reading: $!";
...
while (<$IN>) {
   ...
}

      [download]

      (And adapt the code for the second file accordingly).

      Perl 6 - second systems done right
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom