[转载] 新手问perl的初级问题# Unix - 噫吁兮，危乎高哉
l*i
1 楼
【 以下文字转载自 Linux 讨论区 】
【 原文由 longhei 所发表 】
有这样一段perl script:
use strict;
open(my $fd,"
while() {
$_ =~ s/^\s+//; # trim leading white space
my($iter,$res,$obj,$feas,$dual,$comp,$its,$mu,$junk) = split(/\s+/,$_);
next if ! defined $its || $its !~ /^\d+$/; # skip if seventh token not
integer
push(@cgits,$its);
push(@barits,$its) if $mu > 2.1e-8;
}
有这样几个问题请教：
1。“use strict”是干什么用的？
2。open(my $fd,"
【 原文由 longhei 所发表 】
有这样一段perl script:
use strict;
open(my $fd,"
while() {
$_ =~ s/^\s+//; # trim leading white space
my($iter,$res,$obj,$feas,$dual,$comp,$its,$mu,$junk) = split(/\s+/,$_);
next if ! defined $its || $its !~ /^\d+$/; # skip if seventh token not
integer
push(@cgits,$its);
push(@barits,$its) if $mu > 2.1e-8;
}
有这样几个问题请教：
1。“use strict”是干什么用的？
2。open(my $fd,"
