Re: Most effective bash to perl for directory listing

Why does the script get the current directory? It never does anything with it.

The best I can tell from looking at the perlish version, it boils down to:

perl -E" say for glob qq[$ARGV[0]/*] "
[download]

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

The start of some sanity?

Comment on Re: Most effective bash to perl for directory listing Download Code

Replies are listed 'Best First'.
Re^2: Most effective bash to perl for directory listing by ZWcarp (Beadle) on Jul 18, 2012 at 18:29 UTC
Wow that is awesome...Sorry.. I removed a lot of stuff from the scripts to make it simpler for the post, in mine it uses the current directory. Is there a way to get glob to output just the directory names but not their entire paths (without just regexing it)---> This is the current output of what you posted `../results//jobs ../results//logs ../results//step0_tophat ../results//step1_2cuffcompare ../results//step1_cufflinks ../results//step2_cuffmerge ../results//step3_cuffdiff ../results//step4_createTranscriptome ../results//step6_bowtie_pe ../results//step7_bowtie_se ../results//step8_bowtie_hg19 ../results//step9_tophat_unmapped_hg19` [download] This is what I was looking for, if it is possible: `jobs logs step0_tophat step1_2cuffcompare step1_cufflinks step2_cuffmerge step3_cuffdiff step4_createTranscriptome step6_bowtie_pe step7_bowtie_se step8_bowtie_hg19 step9_tophat_unmapped_hg19` [download] Thanks so much for your time! On a side note, I really want to learn more shorthand tricks like this, but they are really hard to find without asking a direct question... are you aware of any resources that instruct specifically on useful shorthand alternatives .. for example the difference between my script and your response.	[reply] [d/l] [select]
Re^3: Most effective bash to perl for directory listing by BrowserUk (Patriarch) on Jul 18, 2012 at 19:07 UTC
Is there a way to get glob to output just the directory names but not their entire paths (without just regexing it) No. But regexing it isn't hard: `perl -E"say for map{ s[$ARGV[0]/][]; $_} glob qq[$ARGV[0]/]"` [download] are you aware of any resources that instruct specifically on useful shorthand alternatives* Erm. There was a thread a few years called something like Cheap idioms that had some. Typing "idioms" into the search box top left brings up some similar threads. With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. The start of some sanity?	[reply] [d/l]
Re^3: Most effective bash to perl for directory listing by aaron_baugher (Curate) on Jul 18, 2012 at 22:00 UTC
Is there a way to get glob to output just the directory names but not their entire paths? Yes. glob returns pathnames matching the pattern you give it. So if you give it `../results/`, it'll return the filenames in that directory in that format beginning with `../results/`, just like the shell command `find` will do. So if you don't want the rest of the path, chdir into the directory first and then use glob just on the filenames: `chdir $ARGV[0] or die $!; print "$_\n" for glob '';` [download] Aaron B. Available for small or large Perl jobs; see my home node.	[reply] [d/l] [select]