BTW, you can push more than one thing at a time:

push @ARGV, "$path/File-$molec1-cluster$i.out", "$path/File-$molec2-cl
+uster$j.out";
[download]

Are you sure you want to push the $i-file repeatedly?

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Is writing data to @ARGV considered good form?

I agree with choroba, and just wanted to add that additionally I might consider it acceptable in a longer script to use local @ARGV in a small scope (keeping in mind that this is dynamic scoping, so any function called from within that block will also see the localized values). One neat trick is to combine this with with $^I to do inplace editing of files, like with the -i switch:

$ perl -i -ple '$_.="\n" if $. % 4 == 0; close ARGV if eof' -- FILES
[download]

Becomes:

{ # new scope for local
    local *ARGV; @ARGV = @files;
    local $^I = ""; # -i command line switch
    while (<>) {
        print $_;
        print "\n" if $. % 4 == 0;
        close ARGV if eof;
    }
}
[download]

(From here.)

Update: Fixed this potential issue in the above example code.

I wouldn't object to it in a short script. In a large program or application, it's changing the global state, so definitely a don't.

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

yes, why not?

@ARGV is something perl make at disposal for you: if you know what are you doing you can modify at your will: inserting or shifting from it.

Rare items Perl gives you are bad to modify: some of the puncuation variables are a good example to be bad to modify. What the need to modify $. current line number for example? Or what you gain setting $^O the operating system label?

@ARGV and many other varibles you have at disposal are useful to modify. Getopt::Long make a lot of work on @ARGV even if principally shifting it.

But consider you want to write a simple program, possibly a oneliner, that glob files and unfortunately you are working in a user unfriendly OS that does not glob files on command line. You can use glob expanding @ARGV in a BEGIN block:

perl -lne "BEGIN { @ARGV =  map glob, @ARGV; print qq(considering ).scalar @ARGV.qq( files\n);} ....

Or you want to have the first file processed to be the comparing stone and the following ones searched just for lines present in the first one:

perl -lne "%ln;BEGIN{open $f,shift;map{chomp;$ln{$_}++}<$f>}print qq($
+ARGV line\t$.\t[$_]) if exists $ln{$_};close ARGV if eof" 
           dog.txt cat.txt other.txt
[download]

Or, if you have enough hubrys, want to evaluate some line number range popped from @ARGV while printing just some line of a file:

perl -E    "say+(0,<>)[eval pop]"                          linenumber.txt 1,3..5

So, imho, modify @ARGV if you need to!

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.

Oh! Good to know, thanks so much. That'll be so useful for the future. And no, you're right, I don't want to push the $i-file repeatedly, that was a mistake.

Thank you so much!

There is something strange happening though, I think it's because there is something wrong in this bit

for ($i=1; $i<=3; $i++) {
  open $input1, '<', "$path\/File-$molec1-cluster$i.out" or die $!;
  push @ARGV, "$path\/File-$molec1-cluster$i.out";

  for ($j=2; $j<=3; $j++) {
  open $input2, '<', "$path\/File-$molec2-cluster$j.out" or die $!;

  push @ARGV, "$path\/File-$molec2-cluster$j.out";
[download]

When I print the contents of the files, the result is completely chaotic. I would expect the printing to be sequential like so

1st print file molec1-$i=1

2nd print file molec1-$i=2

3rd print file molec1-$i=3

4th print file molec2-$j=2

5th print file molec2-$j=3

but in my case the end result is a combination of $i-file with only the second option of $j-file repeated ($j=3), while the $j=2 is completely ignored.

What i'm getting is:

1st print file molec1-$i=1

2nd print file molec2-$j=3

3rd print file molec1-$i=2

4th print file molec2-$j=3 (repeat)

5th print file molec1-$i=3

6th print file molec2-$j=3 (repeat)

I don't understand why this pattern appears...?

for ($i=1; $i<=3; $i++) {
  open $input1, '<', "$path\/File-$molec1-cluster$i.out" or die $!;
  push @ARGV, "$path\/File-$molec1-cluster$i.out";

  for ($j=2; $j<=3; $j++) {
  open $input2, '<', "$path\/File-$molec2-cluster$j.out" or die $!;

  push @ARGV, "$path\/File-$molec2-cluster$j.out";
[download]


I don't understand why this pattern appears...?


Hi, it does look odd. The only thing I see is missing } sub-ending brackets in your code, maybe that missing sub closure is important. As always, a small-self-contained working example would be useful here. Because usually, when you need to make an example, you see the error yourself.

---

I'm not really a human, but I play one on earth. ..... an animated JAPH

"...open a bunch of files in ARGV and read them line by line ...split... two different filehandles..."

May be that i miss totally the point, but why don't you simply use Getopt::Long and then open the files and iterate over them the usual way?

See also Re: GetOpt Organization.

Regards, Karl