l*****i
发帖数: 3929 | 1 【 以下文字转载自 Linux 讨论区 】
【 原文由 longhei 所发表 】
有这样一段perl script:
use strict;
open(my $fd,"
my(@cgits,@barits);
while(<$fd>) {
$_ =~ 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," | c**t
发帖数: 2744 | 2 use strict; # all variables should be declared
my $fd; # define file handle
my (@cgits, @barits) #declare two array.
【在 l*****i 的大作中提到】
: 【 以下文字转载自 Linux 讨论区 】
: 【 原文由 longhei 所发表 】
: 有这样一段perl script:
: use strict;
: open(my $fd,": my(@cgits,@barits);
: while(<$fd>) {
: $_ =~ 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
| l*****i
发帖数: 3929 | 3 thank a lot!
【在 c**t 的大作中提到】
: use strict; # all variables should be declared
: my $fd; # define file handle
: my (@cgits, @barits) #declare two array.
|
|
