变量声明:Perl的变量使用特殊符号(如$、@、%)来标识其类型。例如,$表示标量(scalar)变量,@表示数组(array)变量,%表示哈希(hash)变量。
my $scalar_variable = 10;
my @array_variable = (1, 2, 3);
my %hash_variable = ('key1' => 'value1', 'key2' => 'value2');
条件语句:Perl支持常见的条件语句,如if、else、elsif、unless等。
if ($condition) {
# do something
} elsif ($another_condition) {
# do something else
} else {
# do something if all conditions fail
}
循环结构:Perl提供了多种循环结构,如for、foreach、while、until等。
for my $item (@array) {
# do something with $item
}
foreach my $key (keys %hash) {
# do something with $hash{$key}
}
while ($condition) {
# do something while condition is true
}
子程序:Perl中可以定义和调用子程序(也称为函数)来组织代码和实现可重用性。
sub my_subroutine {
my ($param1, $param2) = @_;
# do something with parameters return $result;
}
# 调用子程序
my $output = my_subroutine($arg1, $arg2);
文件处理:Perl对文件处理提供了强大的支持,包括打开、读取、写入和关闭文件等操作。
open(my $file_handle, '<', 'filename.txt') or die "Cannot open file: $!";
while (my $line = <$file_handle>) {
chomp($line); # remove newline character
# process $line
}
close($file_handle);
正则表达式:Perl在文本处理方面非常强大,支持灵活的正则表达式操作。
my $string = "Hello, World!";
if ($string =~ /Hello/) {
print "String contains 'Hello'\n";
}
my $modified_string = $string =~ s/Hello/Hi/g;
print "$modified_string\n"; # Output: Hi, World!