in reply to Re^6: foreach $1 -- all special variables
in thread foreach $1

Hello LanX I probably miss the point.. but $\ becomes an alias of a b c d elements as in all previous cases, no?

for $\ (qw( a b c d )) {
    print "@{[1, 2, 3]}";
}

print $/;

for $_ (qw( a b c d )) {
    print "@{[1, 2, 3]}";
}

#output
1 2 31 2 31 2 31 2 3
1 2 31 2 31 2 31 2 3

[download]

L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

Replies are listed 'Best First'.
Re^8: foreach $1 -- all special variables
by LanX (Saint) on Jun 07, 2020 at 20:01 UTC
    Please try $" not $_ 
    for $" (qw( a b c d )) {
    print "@{[1, 2, 3]}";
}

    [download]

    I'm mobile so I can't show it myself

    Edit

    ... Wait, termux to the rescue :)

    $ perl
for $" (qw( a b c d )) {
    print "@{[1, 2, 3]}";
}
__END__
1a2a31b2b31c2c31d2d3$

    [download]

    Cheers Rolf
    (addicted to the Perl Programming Language :)
    Wikisyntax for the Monastery

[reply]
[d/l]
[select]
      Hello again,

      In effect some special variable can be aliased and still works properly ( as $" for example ) and others cannot ( as $\ and $1 ):

      use strict;
use warnings;

print $/.'aliasing output record separator.  $\\'."\n";
for $\ (qw( a b )) {
    # this does not works
    print "\$\\ is ->$\<- but is not appended\n";
}


print $/.'aliasing output list separator $"'."\n";
for $" (qw( a b )) {
    # $" is aliased to a then b,c..
    # BUT is still the output list separator
    print "@{[1, 2, 3]}\n";
}

print $/.'aliasing eval error $@'."\n";
for $@ (qw( a b )) {
    print "now \$@ is: $@\n";
    # no need to localize $@
    eval '2 / 0';
    print "then \$@ is: $@";
}

print $/.'aliasing  first captured match $1'."\n";
for $1 (qw( a b )) {
    
        print "now  \$1 is: $1\n";
        
        'XXX' =~ /(.)/;
        print "then \$1 is WRONG after a match: $1\n";
        
        {
            local $1;
            if ('YYYY' =~ /(.)/){ 
                print "then \$1 is wrong even if \$1 is localized: ".(
+$1 ? $1 : 'UNDEF')."\n";
            }  
                
        }
}

my $text =<<EOT;
first
second
SEP
fourth
SEP
last
EOT

print $/.'input record separator $/'."\n";
for $/ (qw( \n SEP )) {
    print "now \$/ is: $/\n";
    print "LINE:->$_<-\n" for split $/,$text;
}

#OUTPUT
aliasing output record separator.  $\
$\ is ->a<- but is not appended
$\ is ->b<- but is not appended

aliasing output list separator $"
1a2a3
1b2b3

aliasing eval error $@
now $@ is: a
then $@ is: Illegal division by zero at (eval 1) line 1.
now $@ is: b
then $@ is: Illegal division by zero at (eval 2) line 1.

aliasing  first captured match $1
now  $1 is: a
then $1 is WRONG after a match: a
then $1 is wrong even if $1 is localized: UNDEF
now  $1 is: b
then $1 is WRONG after a match: b
then $1 is wrong even if $1 is localized: UNDEF

input record separator $/
now $/ is: \n
LINE:->first<-
LINE:->second<-
LINE:->SEP<-
LINE:->fourth<-
LINE:->SEP<-
LINE:->last<-
now $/ is: SEP
LINE:->first
second
<-
LINE:->
fourth
<-
LINE:->
last
<-

      [download]

      L*

      PS anyway we all know is a stupid thing to do ;)

      There are no rules, there are no thumbs..
      Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.
[reply]
[d/l]
[select]

In Section Meditations