preload
Jan 03
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

Tagged with:
Jul 29

TTYtter Is A Complete Twitter Client Which Runs In a Console [Linux] ~ Web Upd8
Perl-y Tweets with TTYtter | The Linux Foundation Video Site

摰寧雯蝡嚗TTYtter: an interactive console text-based command-line Twitter client and Perl platform (whew!)

Tagged with:
Oct 28

Hello World

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鈭隞嗉

Hello World

Tagged with:
Oct 26

嫣噶芸摰鋆

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 蝣箔甈撠瑼獢曉亦頂蝯

Tagged with:
Oct 18

Y揣Perl銝 -1祇舐洵銝嚗隞蝝遁erl璁餈啜
Y揣Perl銝 -2祇舐洵鈭嚗隞蝝遁erl蝪∪株
Y揣Perl銝 -3祇舐洵銝嚗隞蝝遁erl摮蝚虫葡霈
Y揣Perl銝 -4祇舐洵嚗隞蝝孵蝚虫葡霈撠蝯
Y揣Perl銝 -5祇舐洵鈭嚗銝蝡航perl銝剔蝞蝚嚗銝蝭箇洵銝畾蛛雓蝞銵蝞蝚佗瘥頛蝞蝚血頛舫蝞蝚艾
Y揣Perl銝 -6祇舐洵剝嚗銝蝡航perl銝剔蝞蝚
Y揣Perl銝 -7祇舐洵銝嚗銝蝡航perl銝剔蝞蝚血芸蝝
Y揣Perl銝 -8祇舐洵恍嚗銝蝡航perl銝剔批嗥瑽
Y揣Perl銝 -9祇舐洵銋嚗銝蝡航perl銝剔批嗥瑽
Y揣Perl銝 – 10
Y揣Perl銝 – 11
Y揣Perl銝 – 12

Tagged with:
Oct 18

靘銝靘摮

蝜潛梯 »

Tagged with:
Oct 18
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撣貉寞

Tagged with: