原文件
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
open (OUTFILe,">>./outfile");
while (
{
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 ;