in reply to Best practice for reading delimited file

./script.pl file1 file2 file3 file4

while(<>){
     print $` if /$/;
}

[download]
100% working on unixes and windowses:)

Replies are listed 'Best First'.
Re^2: Best practice for reading delimited file
by Kenosis (Priest) on Oct 16, 2013 at 15:33 UTC

    Consider print ${^PREMATCH} if /$/p;, (Perl v5.10+) as using $`...anywhere in a program imposes a considerable performance penalty on all regular expression matches. Source: perlvar.

[reply]
[d/l]
[select]
      thank you sir
[reply]

        You're most welcome, Lennotoecom!

[reply]

      prematch is just a wordier name for $`

      A considerable performance penalty by any other name doth make thine system slow all the same!

      Edit: The documentation apparently doesn't mean what it appears to say.

[reply]
[d/l]
[select]

        prematch is just a wordier name for $`

        $PREMATCH is the same as $` but it's not the same as ${^PREMATCH}:

        * $PREMATCH
* $`

The string preceding whatever was matched by the last
successful pattern match, not counting any matches hidden
within a BLOCK or eval enclosed by the current BLOCK.

The use of this variable anywhere in a program imposes a
considerable performance penalty on all regular expression
matches. To avoid this penalty, you can extract the same
substring by using @-. Starting with Perl v5.10.0, you can
use the /p match flag and the ${^PREMATCH} variable to do
the same thing for particular match operations.

        [download]

        Source: perlvar.

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom