推 Andor:perldoc -f say 09/20 16:51
→ shelling:???不暸 09/23 12:56
我也來練練 :p
1 #!/usr/bin/perl
2
3 use warnings;
4 use utf8;
5
6 sub main::puts {
7 if (@_) {
8 print @_;
9 }
10 print "\n";
11 }
12
13 sub line1 {
14 $item = shift;
15 "$item " x 10;
16 }
17
18 sub line2 {
19 $item = shift;
20 $length = " " x (length("$item ") * 9);
21 "$item ".$length."$item ";
22 }
23
24 puts "what is your favorite color?";
25 $input = <STDIN>;
26 chomp $input;
27
28 puts line1($input);
29 puts line2($input);
30 puts line2($input);
31 puts line1($input);
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 118.160.193.219
※ 編輯: shelling 來自: 118.160.193.219 (09/19 10:49)