ideaxidea.com からcakephpの記事一覧を取得 #!/usr/bin/perl use warnings; use strict; use utf8; use LWP::Simple; use Data::Dumper; my $url = "http://www.ideaxidea.com/archives/category/cakephp"; getnext($url); sub getnext { my $url = shift; …

$ perl -wnl -e '/\.\/.*(\..*)$/ and print $1;' files.txt | sort | uniq findを使う $ find ./ -type f | perl -wnl -e '/\.\/.*(\..*)$/ and print $1;' | sort | uniq

find ./ -maxdepth 3 -name .htaccess | perl -e 'for (<STDIN>) {print "-" x 40, "\n";print $_;print "-" x 40, "\n";open(FH,"<$_"); print while(<FH>); close(FH);}' | vi -</fh></stdin>

apxsが入ってなかったので、 # apt-cache search apxs apache-dev - development kit for the Apache webserver apache2-prefork-dev - development headers for apache2 apache2-threaded-dev - development headers for apache2 apacheのバージョンは2.2.3…

Data::DumperでUTF-8フラグつき文字列をエスケープさせないようにするには ? ku #!/usr/local/bin/perl -w use strict; use lib qw(/home/hoge/perl/lib/5.10.0 /home/hoge/perl/lib/site_perl /home/hoge/perl/lib/perl5); use utf8; use LWP; use Data::Du…

perldoc -ml DBIx::Class perldoc -ml XML::RSS

SetEnv PERL5LIB /home/haru/src/scripts/perlmodules use lib qw(/path/to/lib)

#!/usr/bin/perl -w use strict; use Encode; use encoding('euc-jp'); binmode(STDERR, ':raw :encoding(euc-jp)'); binmode(STDOUT, ':raw :encoding(utf8)'); my $header = "Content-type:text/html; charset:utf-8\n\n"; print $header; my $str = 'あい…

【SH】対話型シェルスクリプト - (・∀・)イイ!!Memo を参考に。 #!/usr/bin/perl -w use strict; use encoding('euc-jp'); binmode(STDERR, ':raw :encoding(euc-jp)'); print "文字列を入力してください: \n"; my $input = <>; print "入力された文字列は: …

■リファレンス あいまいだったリファレンスのことが整理できた。 ●スカラー値 $a = '1'; $a_ref = \$a; print "$a_ref\n"; # SCALAR(0x182f310)と表示 print "${$a_ref}\n"; # 1と表示 ●配列 @b = 1..5; $b_ref = \@b; print "$b_ref\n"; # ARRAY(0x182f5a4)…

http://perldoc.perl.org/perlreftut.html http://perldoc.perl.org/perlintro.html#Perl-variable-types #!/usr/bin/perl -w use strict; use Data::Dumper; use encoding('euc-jp'); binmode(STDERR, ':raw :encoding(euc-jp)'); my @array = ("a", "b", "…