1 2 3 4 5 6 7 8 9 10 11 12 13 14 | #!/bin/perl -w @isbn = ( "9789861058092", "9789861053134", "9789861050355", "9789861044965", "9789861039855", "9789861036182", "9789861031958", "9789861027364", "9789861022499"); @s = reverse @isbn; print join "\n",@s,"\n"; |
result:
9789861022499
9789861027364
9789861031958
9789861036182
9789861039855
9789861044965
9789861050355
9789861053134
9789861058092
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | #!/usr/bin/env perl # helloworld.pl # # Created by Chun-Ting Liu on 2009-10-28 require 5.008008; use warnings; use strict; use Tk; my $mw = MainWindow->new; #撱箇銝閬蝒 $mw->title("Hello World"); #寡閬蝒璅憿摮嚗交摰閮剔箸嚗擐摮瘥芸憭批神嚗title method銝臬閬雿瘥頛憟賜 $mw->Button(-text => "Done!", -command => sub { exit })->pack(); #撱箇銝撖怨Done!Button widget嚗暺敺瑁 exit MainLoop; #憪GUI鈭隞嗉 |
嫣噶芸摰鋆
perl -MCPAN -e 'install full::module::name'
雿閰虫撟暹活敺摰寞 fetch ftp 靘皞 source code ∩嚗閬閰血嗾甈∼
蝺刻陌
tar xzvf example-<version>.tgz cd example-<version> perl Makefile.PL make make test make install
撠WP::UserAgent璅∠
cpan> d /LWP::UserAgent/
圈蝵宮pan
cpan> o conf init cpan> reload index
撽霅摰鋆鈭瘝
perl -e 'require LWP::UserAgent'
update: 嚗舫閬 sudo 蝣箔甈撠瑼獢曉亦頂蝯
Ｙ揣Perl銝 -1祇舐洵銝嚗隞蝝遁erl璁餈啜
Ｙ揣Perl銝 -2祇舐洵鈭嚗隞蝝遁erl蝪∪株
Ｙ揣Perl銝 -3祇舐洵銝嚗隞蝝遁erl摮蝚虫葡霈
Ｙ揣Perl銝 -4祇舐洵嚗隞蝝孵蝚虫葡霈撠蝯
Ｙ揣Perl銝 -5祇舐洵鈭嚗銝蝡航perl銝剔蝞蝚嚗銝蝭箇洵銝畾蛛雓蝞銵蝞蝚佗瘥頛蝞蝚血頛舫蝞蝚艾
Ｙ揣Perl銝 -6祇舐洵剝嚗銝蝡航perl銝剔蝞蝚
Ｙ揣Perl銝 -7祇舐洵銝嚗銝蝡航perl銝剔蝞蝚血芸蝝
Ｙ揣Perl銝 -8祇舐洵恍嚗銝蝡航perl銝剔批嗥瑽
Ｙ揣Perl銝 -9祇舐洵銋嚗銝蝡航perl銝剔批嗥瑽
Ｙ揣Perl銝 – 10
Ｙ揣Perl銝 – 11
Ｙ揣Perl銝 – 12
1. $_ $ARG嚗撣詨虜臭閮剛 2. @_ @ARG嚗摮靘蝔貉” 3. {row.content} $PROGRAM_NAME嚗祉摨摮 4. @ARGV 祉摨賭誘銵貉” 5. $" $LIST_SEPARATOR嚗貊扳圈撘摮蝚虫葡銝剜函蝚佗 閮剔箇征 6. $, $OFS嚗$OUTPUT_FIELD_SEPARATOR嚗冽print頛詨箏畾萄蝚佗 喃print隤乩葉券典銋函暻澆嚗閮剔箇 7. $ $ORS嚗$OUTPUT_RECORD_SEPARATOR嚗冽print頛詨箄蝚佗 喃print隤亦怠偏瘛餃暻潘閮剔箇 8. $/ $RS嚗$INPUT_RECORD_SEPARATOR嚗頛詨亥蝚佗寡鈭readline嚗 <FH>chomp撠潑銵瘜嚗閮剔箸銵蝚 9. $. $NR嚗$INPUT_LINE_NUMBER嚗敺霈銵(瘜冽銵璁敹萄航 鋡8寡) 10. $| $AUTOFLUSH嚗$OUTPUT_AUTOFLUSH嚗頛詨箇楨銵嚗閮剔0嚗喲 11. $$ $PID嚗$PROCESS_ID嚗祈單祉脩(PID) 12. $! $ERRNO嚗$OS_ERROR嚗銝銝甈∠頂蝯梯矽券航炊 13. $@ $EVAL_ERROR嚗銝銝甈eval雿航炊 14. $^I $INPLACE_EDIT嚗曉渡楊頛舐隞賣隞嗆游 15. %ENV 嗅啣霈 16. 甇銵券撘賊撟曉 |<-($`)->|<-($&)->|<-($')->| / ------- mmmmmmmm ++++++++/ => 甇銵券撘(瘜冽嚗蝛箸潔隞銵典祕蝛箸) | |寥典| 0 ($-[0]) ($+[0]) 17. $^O 雿蝟餌絞蝔晞 use English; print $OSNAME; use Config; print $Config{'osname'};
via Perl撣貉寞
242 | Unique Visitors |
啣