SpringerLinkのebookは1章ずつしかダウンロードできないので面倒。全章ダウンロードして1つのPDFファイルに結合するまで自動で行うプログラムを作った。 #!/usr/bin/perl # slinkdown.pl use strict; use warnings; use Getopt::Long; use Web::Scraper; use…

指定したTwitterアカウントのツイートを、指定した数だけテキスト形式でダウンロードするプログラム。 #!/usr/local/bin/perl # tdown.pl use strict; use warnings; use LWP::Simple; use Time::Piece(); # 本日の日付を名前にしたフォルダを作成 my $local…

#!/usr/bin/perl $str = " aaa bbb ccc "; print "With spaces: >>>", $str, "<<<\n"; $str =~ s/^\s+//; $str =~ s/\s+$//; print "Without spaces: >>>", $str, "<<<\n"; With spaces: >>> aaa bbb ccc Without spaces: >>>aaa bbb ccc はては記法のせいで…

区切り文字を使わず、前後の PATTERN 部分をかっこ類で括るだけでよいみたいだ。 #!/usr/bin/perl $str1 = $str2 = "aaa425bbb586ccc"; $str1 =~ s/[0-9]/_/g; print "区切り文字を使う：$str1\n"; $str2 =~ s{[0-9]}{_}g; print "区切り文字をわない：$str2…

#!/usr/bin/perl sub printMsg { print "Message\n"; return; } &printMsg; Message となる一方、 #!/usr/bin/perl sub printMsg { return; print "Message\n"; } &printMsg; となる。returnはサブルーチンから戻り値を返すだけでなく、その場でサブルーチン…