求修改perl，因为基础薄弱，只能看懂自己的方法

静女，其姝

#!usr/bin/perl -w
use strict;

open IN,"file";
open OUT,">file_1";

my($i,$j,@a);
while (<IN>)
        {
        chomp;
        @a=<IN>;
         for ($i=1,$i<100,$i++)
                   {
                   for($j=$i+1,$j<100,$j++)
                                 {print OUT "$i\t"."if"."$j\n";}
                     }
        }


输入数据为：

>Ab00_213_265
>Ab00_7_49
>Ab00_165_387
>Ab00_93_158

输出：
>Ab00_213_265   if   >Ab00_7_49
>Ab00_213_265   if   >Ab00_165_387
>Ab00_213_265   if   >Ab00_93_158
>Ab00_7_49        if    >Ab00_165_387
>Ab00_7_49        if    >Ab00_93_158
>Ab00_165_387   if    >Ab00_93_158

大致意思就是个排列组合，输入文件是一百行



请教：关于@a=<IN>;我如果写在while前面吧，print不出任何东西，如果写在如题的位置，我的第一行不就赋值不到数组么？
        求帮忙修改下思路，这个程序print之后是这样的
2    if    4
2    if    4
2    if    4
2    if    4
2    if    4
2    if    4
这是我凭记忆默写出来的，语法错误没有，输出的应该也就是这样

rubyish

大致修改一下:

1. #!/usr/bin/perl
   
2. open my $IN, '<', 'file';
   
3. open my $OU, '>', 'file_1';
   
4. 
   
5. my @data = grep chomp, <$IN>;
   
6. while ( my $l = shift @data ) {
   
7.     print $OU map "$l\tif $_\n", @data;
   
8. }

复制代码

静女，其姝

O(∩_∩)O谢谢
我正在百度你的回复中我看不懂的一个个的陌生的词————
话说不同“地方”的人写perl语言风格大相径庭啊，perl这么随意么？我还以为自己写的是标准的

回复 2# rubyish


   

静女，其姝

大概看懂了。
1、grep chomp是什么意思来着？
2、open my $IN, '<', 'file';
书上不是open IN,"file";么？请教下小于号在这里的意思，还有IN是个文件，$不是用来表示变量么？


回复 2# rubyish


   

rubyish

回复 4# 静女，其姝

my @data = grep chomp, <$IN>;
my @data = map { chomp; $_ } <$IN>;

open my $IN, '<', 'file';
OK
open my $IN, 'file';
OK
open IN, 'file';

< : for read
> : for write
   

静女，其姝

my @data = map { chomp; $_ } <$IN>;
与my @data = <IN>;   
有何区别？


回复 5# rubyish


   

rubyish

区别是 chomp

1. my @a = <DATA>;
   
2. print @a;
   
3. __DATA__
   
4. a
   
5. b
   
6. c

复制代码

1. a
   
2. b
   
3. c

复制代码

1. my @a = grep chomp, <DATA>;
   
2. print @a;
   
3. __DATA__
   
4. a
   
5. b
   
6. c

复制代码

1. abc

复制代码

stanley_tam

不算随意，grep和map貌似比for要高效一点哦
回复 3# 静女，其姝