Re^2: seeking oneliner improvement

thanks. if you replace

/\[$ARGV[0]\]/  .. /\[\/$ARGV[0]\]/
[download]

whith

/\<$ARGV[0]\>/  .. /\<\/$ARGV[0]\>/
[download]

and you glob a path with some html file it must search for some html tag you specifies.
Really I don't understand your reply, sure for my ignorance: i go to study the -s operator
thanks L*

there are no rules, there are no thumbs..

Comment on Re^2: seeking oneliner improvement Select or Download Code

Replies are listed 'Best First'.
Re^3: seeking oneliner improvement by BrowserUk (Patriarch) on Nov 25, 2011 at 16:21 UTC
Really I don't understand your reply, sure for my ignorance: i go to study the -s operator See perlrun for -s. It cause perl to parse command line arguments of the form: `-XYZ=pqr` which causes the variable `$xyz` to have the value "pqr" within the program or one-liner. `## run perl; enable arg parsing perl -s ## expand filename globs -e"BEGIN{@ARGV=glob@ARGV}" ## if between the tags, print filename(linenumber):line -nle"/\[$TAG\]/../\[\/$TAG\]/&& print qq[$ARGV($.):$_]" ## Supply the tagname to search for; and the fileglob -TAG=tath_tag .//dir/.ext` [download] (Obviously, you'll need to put that all on one line to run it.) 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.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: seeking oneliner improvement
by BrowserUk (Patriarch) on Nov 25, 2011 at 16:21 UTC

Really I don't understand your reply, sure for my ignorance: i go to study the -s operator

See perlrun for -s. It cause perl to parse command line arguments of the form: -XYZ=pqr which causes the variable $xyz to have the value "pqr" within the program or one-liner.

## run perl; enable arg parsing
perl -s 

## expand filename globs
-e"BEGIN{@ARGV=glob@ARGV}" 

## if between the tags, print filename(linenumber):line
-nle"/\[$TAG\]/../\[\/$TAG\]/&& print qq[$ARGV($.):$_]" 

## Supply the tagname to search for; and the fileglob
-TAG=tath_tag ./*/dir/*.ext
[download]

(Obviously, you'll need to put that all on one line to run it.)

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.

[reply]
[d/l]
[select]