钻石操作符

 

#! /usr/bin/perl
use strict;
use warnings;

=pod
print "\n-----------------------------while(defined(\$equal_sign = <>))-------------------------------\n";
my $forwar_slash;
while(defined($forwar_slash = <>)){
    chomp($forwar_slash);
    print "$forwar_slash\n"
}
print "\n-----------------------------while(defined(\$equal_sign = <>))-------------------------------\n";
=cut

=head1
print "\n---------------------------while(<>)---------------------------------\n";
while(<>){
    chomp;
    print "$_\n";
}
print "\n---------------------------while(<>)---------------------------------\n";
=cut

=head1
print "\n----------------------------\@ARGV--------------------------------\n";
foreach(@ARGV){
    print $_;
}
print "foreach_end.\n";
my $metacharacter = shift(@ARGV);
$metacharacter = shift(@ARGV);
print $metacharacter;
print "\n----------------------------\@ARGV--------------------------------\n";
=cut

=head1
print "\n---------------------------------_mannually_mod_\@ARGV---------------------------\n";
@ARGV = qw{pl.pl pl.pl};
while(<>){
    chomp;
    print "$_\n";
}
print "\n---------------------------------_mannually_mod_\@ARGV---------------------------\n";
=cut1

print "\n---------------------------------array_element_with_carriage_return_---------------------------\n";
my @minus_sign = qw{ notation angle_brackets at_sign };
print @minus_sign;
print "\n";
print "@minus_sign";
print "\n---------------------------------array_element_with_carriage_return_---------------------------\n";

print "\n---------------------------------print_as_func_call_with_parentheses---------------------------\n";
print (2+3)*4;
print "\n---------------------------------print_as_func_call_with_parentheses---------------------------\n";

print "\n---------------------------------printf_---------------------------\n";
printf "username:%s. \n  password:%s.", $minus_sign[0], $minus_sign[1];
print "\n---------------------------------printf_---------------------------\n";

print "\n---------------------------------printf_%g_aoto_select_num_format_---------------------------\n";
printf "NO 1: %g, NO 2: %g, NO 3: %g.", 5/2, 51/17, 51 ** 17 ;
print "\n---------------------------------printf_%g_aoto_select_num_format_---------------------------\n";

print "\n---------------------------------_percent_sign---------------------------\n";
printf "Monthly interest rate: %.2f%%\n", 5.25/12;
print "\n---------------------------------_percent_sign---------------------------\n";

print "\n---------------------------------store_format_string_2_scala_---------------------------\n";
my @dollar_underscore = qw { wilma dino pebbles };
my $semicolons = "The items are:\n".("%10s\n" x @dollar_underscore);
printf $semicolons, @dollar_underscore;
print "\n---------------------------------store_format_string_2_scala_---------------------------\n";

print "\n---------------------------------cooleset_---------------------------\n";
printf"The items are:\n".("%10s\n" x @dollar_underscore), @dollar_underscore;
print "\n---------------------------------cooleset_---------------------------\n";

print "\n---------------------------------backslash_percent_sigh_---------------------------\n";
print "\%";
print "\n---------------------------------backslash_percent_sigh_---------------------------\n";

print "\n---------------------------------_---------------------------\n";

转载于:https://www.cnblogs.com/books2read/p/11004037.html