摘要:
#!/usr/bin/perluse 5.010use warnings# std outprint "hello world\n";# variable interpolation$meal="steak";$barney="fred ate a $meal";$barney='fred ate a '.$meal;# std in$line=;# chompchomp($line=);chomp(@lines=);# defined$madonna=;if (defined($madonna)) {print &q 阅读全文