如何在perl中读取行 [英] how to read lines in perl
问题描述
我对Perl脚本非常陌生，并且陷入了困境.
我的要求是我有一个文本文件，应将其作为输入作为perl脚本的输入.我想逐行阅读文本文件并找到一种模式.一旦找到模式，就应该用另一个字符串替换.
我想要三件事:-
1)输出应覆盖到同一文件.
2)输出应定向到单独的文件.
3)如何使用参数运行Perl脚本.
我的代码如下所示，它不起作用:
Hi,
I am very new to perl scripting and am stuck in something.
My requirement is that i have a text file which should be given as input to the perl script as an argument. I want to read the text file line by line and find a pattern. Once i find a pattern i should replace it by another string.
I want 3 things:-
1) output should overwritten onto the same file.
2) output should be directed to a seperate file.
3) how to run a perl script taking arguments.
My code is as below which doesn''t work :
#!/usr/bin/perl
chomp($arg1=@ARGV[0]);
print "Enter the name of the tag to be replaced\n";
$inp1=<STDIN>;
print "Enter the new tag name \n";
$out=<STDIN>;
open(INPUTFILE,$arg1);
while(<INPUTFILE>)
{
my($line) = $_;
$line= ~ s/$inp1/$out/g;
}
我将其运行为:
/.replace.pl test.txt
其中replace.pl是perl脚本，而test.txt是作为参数给出的文件.
如果上述代码有误，可以有人为我编写一个新代码(必须由像我这样的初学者理解).
请尽快回复，因为我被卡住了.任何帮助将不胜感激.
在此先感谢
甚至我现在都尝试了一些新的东西.代码如下:
and i am running it as:
/.replace.pl test.txt
where replace.pl is the perl script and test.txt is the file given as argument.
In case the above code is wrong , can someone write a new code for me(must be understood by a begginer like me).
Please reply ASAP coz i am stuck uo badly.Any help would be appreciated.
Thanks in advance
Even i tried something new now. The code is as below:
#!/usr/bin/perl -w
use strict;
use FileHandle;
print "Enter the name of the tag to be replaced \n";
$inp=<STDIN>;
print "Enter the new tag name \n";
$out=<STDIN>;
$arg1=chomp(@ARGV[0]);
sub printFile($)
{
my $fileHandle = $_[0];
while(<fileHandle>)
{
my $line=$_;
$line =~ s/$inp/$out/;
}
}
my $fh = new FileHandle;
$fh->open($arg1) or die "Could Not Open the File\n";
printFile($fh);
$fh->close();
但是它显示出很多错误.错误如下:
But its showing a lot of errors. The errors are as below :
Global symbol "$inp" requires explicit package name at ./replace2.pl line 5.
Global symbol "$out" requires explicit package name at ./replace2.pl line 7.
Global symbol "$arg1" requires explicit package name at ./replace2.pl line 8.
Global symbol "$inp" requires explicit package name at ./replace2.pl line 15.
Global symbol "$out" requires explicit package name at ./replace2.pl line 15.
Global symbol "$arg1" requires explicit package name at ./replace2.pl line 20.
Execution of ./replace2.pl aborted due to compilation errors.
我正在尝试将其作为./replace2.pl test.txt
运行
请帮忙.
也不要忘记第一个代码.
谢谢
I am trying to run it as ./replace2.pl test.txt
Please help.
Also dont forget the 1st code.
Thanks
推荐答案
arg1 = @ ARGV [0]); 打印 " ;
arg1=@ARGV[0]); print "Enter the name of the tag to be replaced\n";
inp1 = STDIN > ; 打印输入新标签名称\ n"；
inp1=<STDIN>; print "Enter the new tag name \n";
out = < STDIN > ; 打开(INPUTFILE，
out=<STDIN>; open(INPUTFILE,
这篇关于如何在perl中读取行的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
