in reply to Re: Perlish way to do an ls *.sf
in thread Perlish way to do an ls *.sf

And for slightly less typing you could do 

{
       local $\=$/;
       print for (<"*.$ext">);
}

[download]
:)

Replies are listed 'Best First'.
Re: Re: Re: Perlish way to do an ls *.sf
by ChemBoy (Priest) on Mar 29, 2002 at 18:56 UTC

    If you must golf... 

    {
        local$\=$/;
        print for<*.$ext>
}

    [download]

    Not that I would advocate such a course in general... ;-)


    If God had meant us to fly, he would *never* have given us the railroads.
        --Michael Flanders

[reply]
[d/l]
      but wouldn't you rather... 
      print join $/, <*.$ext>;

      [download]
         MeowChow                                   
               s aamecha.s a..a\u$&owag.print
[reply]
[d/l]

        print join $/, <*.$ext>; 

        print map$_.$/,<*.$ext>;

        [download]
        Same length, but also adds newline to last item. 

        U28geW91IGNhbiBhbGwgcm90MTMgY
W5kIHBhY2soKS4gQnV0IGRvIHlvdS
ByZWNvZ25pc2UgQmFzZTY0IHdoZW4
geW91IHNlZSBpdD8gIC0tIEp1ZXJk

[reply]
[d/l]

In Section Seekers of Perl Wisdom