test" />
當前位置:成語大全網 - 書法字典 - Perl語言如何循環生成文件,用於遍歷測試。

Perl語言如何循環生成文件,用於遍歷測試。

#!/bin/perl -w

for(我的$ j = 0;$ j & lt4;$j = $j + 1)

{

for(我的$ k = 0;$ k & lt2;$k++)

{

for(我的$ l = 0;$ l & lt4;$l++)

{

for(我的$ m = 0;$ m & lt16;$m++)

{

打開IN,“test.txt”或die“test . txt”;

打開來," >test_$j\_$k\_$l\_$m.txt "或die " test _ $ j \ _ $ k \ _ $ l \ _ $ m.txt

打印“$ j \ _ $ k \ _ $ l \ _ $ m \ n”;

while(& lt;在& gt)

{

$ _ = ~ s/a = 0/a = $ j/g;

$ _ = ~ s/b = 0/b = $ k/g;

$ _ = ~ s/c = 0/c = $ l/g;

$ _ = ~ s/d = 0/d = $ m/g;

打印出$ _;

}

}

}

}

}

妳的之所以不能實現,可能和妳的test _ $ j _ $ k的命名方法有關。

這也可能與您的文件句柄打開的位置有關。我修改了上面的代碼。妳可以再試壹次。有問題可以及時聯系我。