Perl编程实例解析与实现

最新推荐文章于 2025-12-11 13:15:33 发布

原创

最新推荐文章于 2025-12-11 13:15:33 发布 · 430 阅读

9 ·

CC 4.0 BY-SA版权

文章标签：

#Perl编程 # 文件操作 # 符号链接

26、编写一个程序，允许在其他参数之前使用一个可选的 -s 开关，以表明要创建一个软链接而不是硬链接。若目标路径是目录，则将源文件的基本名称添加到该目录路径后作为目标路径。即使系统没有硬链接，也尝试用这个程序创建软链接。

my $symlink = $ARGV[0] eq '-s';
shift @ARGV if $symlink;

my($source, $dest) = @ARGV;

if (-d $dest) {
    my $basename = basename $source;
    $dest = File::Spec->catfile($dest, $basename);
}

if ($symlink) {
    symlink $source, $dest
        or die "Can't make soft link from '$source' to '$dest': $!\n";
} else {
    link $source, $dest
        or die "Can't make hard link from '$source' to '$dest': $!\n";
}

27、如果你的操作系统支持，编写一个程序来查找当前目录中的所有符号链接，并打印出它们的值（就像 `ls -l` 那样：名称 -> 值）。

foreach ( glob( '.* *' ) ) {
    my $dest = readlink $_;
    print "$_ -> $dest\n" if defined $dest;
}

28、编写一个程序，读取一个数字列表并对其进行数值排序，然后将结果列表以右对齐的列形式输出。用以下示例数据进行测试：17 1000 04 1.50 3.14159 -10 1.5 4 2001 90210 666

以下是实现该功能的 Perl 代码：

while (<>) {
    push @numbers, split;
}

my @sorted_numbers = sort {$a <=> $b} @numbers;

foreach (@sorted_numbers) {
    printf "%20g\n", $_;
}

将上述示例数据保存为一个文本文件，例如 data.txt ，然后在命令行中运行：

perl your_script.pl data.txt

即可看到排序并右对齐输出的结果。

29、编写一个程序，在给定的字符串中查找给定子字符串的所有出现位置，并打印出这些位置。例如，给定输入字符串“This is a test.”和子字符串“is”，程序应报告位置2和5。如果子字符串是“a”，则应报告8。如果子字符串是“t”，程序会报告哪些位置？

程序会报告位置10和13。

30、编写一个程序，切换到某个特定的（硬编码的）目录，比如系统的根目录，然后执行 `ls -l` 命令以获取该目录的长格式目录列表。（如果你使用的是非 Unix 系统，请使用你自己系统的命令来获取详细的目录列表。）

以下为示例代码：

open STDOUT, '>', 'ls.out' or die "Can't write to ls.out: $!";
open STDERR, '>', 'ls.err' or die "Can't write to ls.err: $!";
chdir '/' or die "Can't chdir to root directory: $!";
exec 'ls', '-l' or die "Can't exec ls: $!";

代码解释：前两行将标准输出和标准错误重定向到当前目录下的文件，接着切换到根目录，最后执行 ls -l 命令。若执行失败，会输出相应的错误信息。

31、修改上一个程序，将命令的输出发送到当前目录下名为 ls.out 的文件中。错误输出应发送到名为 ls.err 的文件中。（你无需对这两个文件可能为空的情况做特殊处理）

open STDOUT, '>', 'ls.out' or die "Can't write to ls.out: $!";
open STDERR, '>', 'ls.err' or die "Can't write to ls.err: $!";
chdir '/' or die "Can't chdir to root directory: $!";
exec 'ls', '-l' or die "Can't exec ls: $!";