Question

高分求Perl写：读取文件，按要求输入到新生成的文件里.

刚入手perl，这个急着要。有高手能帮忙写一下嘛？从头到尾完整的。
原文件
a=max_number;
q1=ubase{a};
q2=ubase{100};

生成一个新文件为
a=max_number;
Uvars{1}=ubase{a};
Uvars{2}=ubase{100};
q1=Uvars{1};

q2=Uvars{2};
我自己网上查半天写了一段
有如下问题：
1. open FILE 我在调用的时候怎么能让这个程序知道我想处理的文件是test.m
想生成的新文件是test_new.m呢？
2 ,我每次读到一行有ubase 的，都需要输出一个Uvars{i} ，i从1 逐次递加 。但是我不能够定义constant i=1 然后再 i++; 这该怎么办呢？
3.我没运行成功过语法不知有没有问题。

#/usr/bin/perl
open FILE, "$file" or die "$file: $!";
#print scalar <FILE>; #read one line

open (OUTFILE,">>./outfile");

while ( <FILE>)
{
if (/ubase/)#include keyword
{
$1=~/ubase$/ ; #找到以ubase 为结尾的字符串
$2=~/^ubase/; #找到以ubase 为开头的字符串

print OUTFILE "Uvar{i}=ubase", $2,\n;
print OUTFILE $1 ,"=Uvar{i}",\n;
}

else{
print OUTFILE ; }

}
close FILE;
close OUTFILE ;

Answer 1

请详细描述一下你的问题吧。你是指A文件中，的格式是第一个，然后转换成B文件的格式是下面那样子吗？
还是A文件是配置，需要读取到某些变量里面？又或者其他意思？最好是能举证一个例子，运行前后的。

追问

我现在有个名称为 test.m 的文件，里面的内容为上面的

我需要写一个perl 程序

生成一个新的文件 test_new.m
其内容为下面的。

追答

问题就是我没有理解这两个文件的联系在哪里，
是指：等号左边的用hash形式的变量替换，然后右边保持不变？那么为什么a又没有替换呢？
q1和q2被替换的依据是什么呢？

追问

这个本来是在matab 里面做的一个东西。改写user interface 的
matlab 程序调用函数的时候，必须是下面的那种格式。
Uvars{1}=ubase（a）；是去做sample 的;
q1=Uvars{1}; 选取一个sample 好的随机数；

现在是为了让用户直接写 q1=ubase（a）；（但是这样程序就认不出来了）
所以我要读取用户的文件，生成一个新的满足格式的

追答

将这个文件保存为 *.pl 假设保存为Run.pl 并放到test.m目录下，在命令行下进入这个目录.在命令行下输入 perl Run.pl test.m test_new.m再回车，它就会执行了，执行完成之后 屏幕上会打印一份信息，文件test_new.m中会保存一份信息，两份信息一样，你可以看看对不对。
1、其中 test.m 及 test_new.m 分别传递给 $ARGV[0]和$ARGV[1]，你那个脚本如果要打开，需要对open命令后的文件变量赋值才行。2、使用前面定义变量即可。后面遇到了自动加1，也作为后面哈希的范围控制。

程序如下：
#!/usr/bin/perl -w
use strict;
die "perl $0 " unless(@ARGV == 2);
open IN,$ARGV[0] or die "InputFile ERR!\n";
open OUT,">$ARGV[1]" or die "OutputFile ERR!\n";

my $counti = 1;
my %info;
while(){
chomp;
my $line = $_;
if($_=~/(.*)=ubase/){
my $Seq = $1;
$line =~s/$Seq/Uvars\{$counti\}/;
$info{$counti} = $Seq;
$counti++;
}
print $line,"\n";
print OUT $line,"\n";
}
for(my $i=1; $i < $counti;$i++){
print "$info{$i}=Uvars\{$i\}\n";
print OUT "$info{$i}=Uvars\{$i\}\n";
}
close IN;
close OUT;

已经测试了，可以正常使用比如
输入为：
a=max_number;
q1=ubase{a};
q2=ubase{100};
q3=ubase{200};
a2=max_number;
输出为：
a=max_number;
Uvars{1}=ubase{a};
Uvars{2}=ubase{100};
Uvars{3}=ubase{200};
a2=max_number;
q1=Uvars{1}
q2=Uvars{2}
q3=Uvars{3}
不知道有没有问题

追问

已成功，好感谢！
刚才问你的第一个问题 我自己已经看懂啦，就删掉啦~~~
第二个问题，
有的用户输入q1=ubase{a};q2=ubase{100}; 中间不换行

我有个想法是能不能加一段程序，先将这个文本中每个" ; " 的后面都加一个换行符？或者把" ; "都替换成换行符？

追答

#!/usr/bin/perl -w
use strict;
die "perl $0 " unless(@ARGV == 2);
open IN,$ARGV[0] or die "InputFile ERR!\n";
open OUT,">$ARGV[1]" or die "OutputFile ERR!\n";
my $counti = 1;
my %info;
my $text="";
while(){
chomp;
$text.=$_;
}
my @TEXT = split/\;/,$text;
for(my $lineCnt=0;$lineCnt<@TEXT;$lineCnt++){
my $line = $TEXT[$lineCnt];
if($line =~/(.*)=ubase/){
my $Seq = $1;
$line =~s/$Seq/Uvars\{$counti\}/;
$info{$counti} = $Seq;
$counti++;
}
print $line,"\;\n";
print OUT $line,"\;\n";

}
for(my $i=1; $i < $counti;$i++){
print "$info{$i}=Uvars\{$i\}\;\n";
print OUT "$info{$i}=Uvars\{$i\}\;\n";
}
close IN;
close OUT;

这个可以解决你前面提到的问题，并且如果有的换行有的不换行也可以解决，不过有个前提就是分号不能少啊，分号要是少了就没得搞了

追问

刚才问你的第问题 我自己写出来啦
while(){
chomp;
$text=$_;
my @text=split/\;/,$text ;
for(my $lineCont=0;$lineCont<@text;$lineCont++){
my $l= $text[$lineCont];
push(@TEXT,$l);
}

就分号或者换行都认得出来啦
今天真的超级感谢

Answer 2

这什么？