请看下$_和$tmp有什么区别？？

flyfeel

UID: 46107
帖子: 130
积分: 299
在线时间: 23 小时

1^# flyfeel 发表于 2008-07-10 15:45

请看下$_和$tmp有什么区别？？

section1和section2有什么区别？？
为什么section1可以，section2不行?报错？？

#!/usr/bin/perl -w

my $start = qr/^=head1/;
my $end = qr/^=cut/;
=head
#section1

while(<DATA>){
    if ($_ =~ /$start/ .. /$end/){
        print "*** $_";
    }
    else{
        print "--- $_";
    }
}
=cut

#section2

my @arr = <DATA>;
foreach my $tmp (@arr)
{
    if ($tmp =~ /$start/ .. /$end/)
    {
        print "*** $_";
    }
    else
    {
        print "--- $_";
    }
}

__END__
#!/usr/bin/perl -w

a:afda
b:fda
#c:adfaf

=head1 d:sta
e:adfaf fda
f:13
g:132 #!/perl

=cut
h:fda
j:123 #这里是注释

#!/usr/bin/

k:545

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2008-07-10 15:49

兄弟，你该学 Perl 了。

flyfeel

UID: 46107
帖子: 130
积分: 299
在线时间: 23 小时

3^# flyfeel 发表于 2008-07-10 15:52

老大，我是刚看你的列子http://bbs.chinaunix.net/thread-1165378-1-4.html
照着上面学的。
现在是我要删除perl里的注释，单行注释已经可以删除了，就是多行有问题。
嘿嘿，小弟不才，就是才学perl啊。
看了老大的例子，就对照自己的改了下，可一直报警告啊，结果也有问题。
麻烦老大不吝赐教。

flyfeel

UID: 46107
帖子: 130
积分: 299
在线时间: 23 小时

4^# flyfeel 发表于 2008-07-10 15:56

另外，两个都是循环读数组啊，
只是section1用的$_进行匹配，而section2用了一个临时变量$tmp匹配啊、
按理说两个是一个意思啊。
可为什么实际却有差别？？

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

5^# churchmice 发表于 2008-07-10 18:12

有差别的
第一个是一行一行读
第二个是一起读进一个数组的
需要注意这个特殊的变量

[Copy to clipboard] [ - ]

CODE:

$.

range操作符(..或者...)在标量环境中很有意思，

[Copy to clipboard] [ - ]

CODE:

/$sart/ .. /$end/

默认是和$.进行比较的

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

6^# flw 发表于 2008-07-10 20:28

楼上的你也该去读书了。

forlorngenius

UID: 32353
帖子: 42
积分: 96
在线时间: 2 小时

7^# forlorngenius 发表于 2008-07-10 21:34

当遇到整数的时候才与$. 对应，并非scalar。

cai120120

UID: 14089
帖子: 1
积分: 2
在线时间: 10 分钟

8^# cai120120 发表于 2008-07-10 23:06

[Copy to clipboard] [ - ]

CODE:

#!/usr/bin/perl -w

my $start = qr/^=head1/;
my $end = qr/^=cut/;
=head
#section1

while(<DATA>){
if ($_ =~ /$start/ .. /$end/){
      print "*** $_";
}
else{
      print "--- $_";
}
}
=cut

#section2

my @arr = <DATA>;
foreach my $tmp (@arr)
{
if ($tmp =~ /$start/ .. $tmp =~ /$end/)
{
      print "*** $tmp";
}
else
{
      print "--- $tmp";
}
}

__END__
#!/usr/bin/perl -w

a:afda
b:fda
#c:adfaf

=head1 d:sta
e:adfaf fda
f:13
g:132 #!/perl

=cut
h:fda
j:123 #这里是注释

#!/usr/bin/

k:545

cai120120

UID: 14089
帖子: 1
积分: 2
在线时间: 10 分钟

9^# cai120120 发表于 2008-07-10 23:09

Perl Cookbook, 2nd Edition
Recipe 6.8 Extracting a Range of Lines

__lxmxn__

UID: 3845
帖子: 167
积分: 384
在线时间: 1 天 14 小时

10^# __lxmxn__ 发表于 2008-07-11 07:34

read the perl documentation in perldoc perlop

modify the section 1 with
if ($_ =~ /$start/ .. $_ =~ /$end/)

and section 2 with
if ($tmp =~ /$start/ .. $tmp =~ /$end/)