UC知道perl:代码问题
来源：百度知道 编辑：UC知道 时间：2024/05/18 00:18:24
1. my $in = $ARGV[0];
2. unless (defined $in) {
3. die "Usage: $0 filename";
4. }
5. my $out = $in;
6. $out =~ s/(\.\w+)?$/.out/;
7. unless (open IN, "<$in") {
8. die "Can't open '$in': $!";
9. }
10. unless (open OUT, ">$out") {
11. die "Can't write '$out': $!";
12. }
13. while (<IN>) {
14. s/Fred/Larry/gi;
15. print OUT $_;
16. }
请问：1-4行是什么意思？unless是什么意思？还有6，7行是什么意思？第七行的符号"<$in"是什么意思？谢谢
谢谢两位的 回答，我已经明白了大部分，还有个问题： $out =~ s/(\.\w+)?$/.out/;中的$是什么意思，这一行它实现的是复制了一份$in吗？
2. unless (defined $in) {
3. die "Usage: $0 filename";
4. }
5. my $out = $in;
6. $out =~ s/(\.\w+)?$/.out/;
7. unless (open IN, "<$in") {
8. die "Can't open '$in': $!";
9. }
10. unless (open OUT, ">$out") {
11. die "Can't write '$out': $!";
12. }
13. while (<IN>) {
14. s/Fred/Larry/gi;
15. print OUT $_;
16. }
请问：1-4行是什么意思？unless是什么意思？还有6，7行是什么意思？第七行的符号"<$in"是什么意思？谢谢
谢谢两位的 回答，我已经明白了大部分，还有个问题： $out =~ s/(\.\w+)?$/.out/;中的$是什么意思，这一行它实现的是复制了一份$in吗？
整个程序的功能就是：接受一个用户输入的参数，这个参数是一个文件名。假设文件名是a.txt 则把这个文本文件的内容复制到 a.out 中，并且把其中所有的Fred替换成Larry。
1-4 读入命令行输入的参数，如果没有给出参数则报错。
5-6 保存输出文件名（内容为：XXX.out）
7-9 创建输入文件句柄，如不成功则报错。
10-12 打开输出文件句柄，如不成功则报错。
13-16 不断读入输入文件的内容，并替换fred为larry，存入输出文件中
"<$in" 的意思就是表明：打开$in所表示的文件时，只做为输入，不会改写其中的内容。
反之 ">$out"就表明它是一个输出文件，会写入内容。
补充回答：$的意思就是句尾锚定。具体的匹配的就是一个位置，表示已经匹配到句尾了。
这一行实现的功能就是复制一份$in并把它的后缀名改成.out
unless (条件) 语句;
意思就是：
if (条件) else 语句；
$out =~ s/(\.\w+)?$/.out/;
这一行的意思是对$out进行查找/替换，把.开始的第一个单词替换为out
open IN, "<$in"
第7行的open是打开文件，打开文件的句柄是IN，文件名"<$in"，里面的<表示读入文件，用>表示写文件。