@ARGV 參數(shù)如何只限定一個(gè) 請(qǐng)教各位

gaochong

如下代碼，@ARGV包含txt文件，但執(zhí)行這個(gè)程序，默認(rèn)還是接受標(biāo)準(zhǔn)輸入，非要Ctrl+D才能結(jié)束。
請(qǐng)問各位，如何使@ARGV只包含txt文件？而不再接受標(biāo)準(zhǔn)輸入？謝謝各位！

附：我的目的是 輸入一個(gè)字符，刪除txt文件中匹配這個(gè)字符的行。我的想法是輸入這個(gè)字符后，就結(jié)束，而不用Ctrl+D.


#!/usr/bin/perl -w

print "Please input:\n";
chomp (my $input=<>);
@ARGV="txt";
chomp (my $date=`date +%Y%m%d%H%M%S`);
$^I=".$date.bak";
while (<>) {
               s/^($input).*\n//;
               print;
}

[ 本帖最后由 gaochong 于 2008-11-13 11:55 編輯 ]

ynchnluiti

chomp (my $input=<>);
這句會(huì)等待ctrl+d結(jié)束

引用中內(nèi)容是錯(cuò)誤的。

[ 本帖最后由 ynchnluiti 于 2008-11-13 12:10 編輯 ]

gaochong

樓上說的不對(duì)，chomp (my $input=<>);  敲回車就結(jié)束了。

可以測(cè)試如下：

#!/usr/bin/perl -w

print "Please input:\n";
chomp (my $input=<>);
print "$input";

運(yùn)行結(jié)果：
[root@HS-PCTEST-CENTER-01 gaochong]# ./dd
Please input:
aa
aa
[root@HS-PCTEST-CENTER-01 gaochong]#

cobrawgl

你不接受輸入不得了？

不明白你想干什么

gaochong

我要的目的很簡(jiǎn)單：
提示輸入一個(gè)字符，這個(gè)字符去匹配txt文件的每一行，如果匹配上，就把這行刪掉（并留個(gè)備份文件）

請(qǐng)問我說明白了嗎？

ynchnluiti

原帖由 gaochong 于 2008-11-13 11:51 發(fā)表
樓上說的不對(duì)，chomp (my $input=);  敲回車就結(jié)束了。

可以測(cè)試如下：

#!/usr/bin/perl -w

print "Please input:\n";
chomp (my $input=);
print "$input";

運(yùn)行結(jié)果：
[root@HS-PCTEST-CENTER ...

是說錯(cuò)了。

ynchnluiti

chomp (my $input=<>);
不需按ctrl+D結(jié)束，但標(biāo)準(zhǔn)輸入已打開，while前沒有關(guān)閉。
不知道是不是這么說的。

nsnake

while (<>) {
               s/^($input).*\n//;
               print;
               last;
}

royalzhang

估計(jì)你是在win下運(yùn)行的，date命令和linux下的結(jié)果不同的：win下接受輸入……所以你就不停地輸入“錯(cuò)誤的日期”吧。
請(qǐng)?jiān)趌inux/unix運(yùn)行你的腳本

gaochong

沒有實(shí)現(xiàn)。。。

你運(yùn)行下看？