comment on

Hello! I wrote something recently, and then had to go through it and actually seperate things into a few lines to get it to work (not that I did it right the first time...) It's a simple code to make a list of files dropping out the first few levels of file paths. The code in question is here:

use File::Find;

open (OUT, ">filelist.txt");

find( sub {
    $temp = $File::Find::name;
    $temp =~ s/C:\/users\/User\/Music\/(.*)/$1/gi;
    print OUT "$temp\n";
}, "C:/users/User/Music/");

close OUT;
[download]

If you can't tell just by looking at it that I'm running Windows, you probably can't help me here :~)

It's Strawberry Perl 5.8

I recall reading once that someone wrote a web spider in one line...I'm not really good at one liners. Is there a way to squish

    $temp = $File::Find::name;
    $temp =~ s/C:\/users\/User\/Music\/(.*)/$1/gi;
    print OUT "$temp\n";
[download]

into two or even one lines? And does anyone know a good place to start looking for something like a brevity tutorial? I recently watched a podcast where the speaker said, "If statements are obsolete if you know how to use the space-ship operator!" I'm not so much looking to obfuscate, but I'd like to save a few keystrokes.

Thanks and Cheers!
~Petras

Ready.
poke 53280,0
poke 53281,0
ctrl+2 load "zork",8,1

West of House

In reply to How to make code smaller--saving steps and writing one liners by Petras

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


more useful options
	PerlMonks