とりあえず他人の書いたのをパクってこんなのになりました。 sub url_encode(){ $str = shift; $str =~ s/[^\w ]/'%'.unpack('H2',$1)/eg; $str =~ tr/ /+/; return $str; }[^\w ]ってところで人によっては書き方が違うみたい。 うまく動いてるからどうでも…

あるファイルを別名で保存するためこんなスクリプトを使っていた。 #!/usr/bin/perl$before = shift; $after = shift;exec("cat $before > $after");exit;これを使ってコピー前とコピー後のファイル名を同じで実行すると copy hoge.pl hoge.pl警告が出てくる…