Re: foreach loop and creating files with "$

Take a look at $_ in perlvar. Frankly, I don't hesitate to use $_. But then most of my code is fairly straight forward procedural code without much scoping challenge. I am sure someone here has run into an issue or two making use of $_, but I certainly have not.

I personally don't like the 'visual' of $temp$_, so would handle it differently, but I don't see anything functionally wrong with it.

...the majority is always wrong, and always the last to know about it...

Insanity: Doing the same thing over and over again and expecting different results...

A solution is nothing more than a clearly stated problem...otherwise, the problem is not a problem, it is a facct

wjw

Comment on Re: foreach loop and creating files with "$_" Download Code

Replies are listed 'Best First'.
Re^2: foreach loop and creating files with "$_" by james28909 (Deacon) on Jul 22, 2014 at 03:54 UTC
just as an example, how would you do it differently if i might ask? :)	[reply]
Re^3: foreach loop and creating files with "$_" by wjw (Priest) on Jul 22, 2014 at 04:35 UTC
`my $file = "file"; my $temp = "temp"; foreach (1..5){ open $file, '>', "$temp" . "$_"; print $file "THIS IS DATA"; }` [download] or `my $file = "file"; my $temp = "temp"; foreach my $end (1..5) { open $file, '>', "$temp" . "$end"; print $file "THIS IS DATA"; }` [download] (not tested) Personal preference only... ...the majority is always wrong, and always the last to know about it... Insanity: Doing the same thing over and over again and expecting different results... A solution is nothing more than a clearly stated problem...otherwise, the problem is not a problem, it is a facct wjw	[reply] [d/l] [select]
Re^4: foreach loop and creating files with "$_" by toolic (Bishop) on Jul 22, 2014 at 13:41 UTC
What's wrong with always quoting "$vars"? Less clutter, too: `open $file, '>', $temp . $_;` [download]	[reply] [d/l]
Re^3: foreach loop and creating files with "$_" (path tiny spew) by Anonymous Monk on Jul 22, 2014 at 19:38 UTC
First with $_ then without `use Path::Tiny qw/ cwd path tempfile /; ## in cwd path( "temp$_" )->spew("THIS IS DATA") for 1 .. 5; ## in $TMP directory tempfile( 'tempjamesXXXX' )->spew("THIS IS DATA") for 1 .. 5;` [download]	[reply] [d/l]