perl -MFile::Copy -e "for (1..31) {copy('alert.log',sprintf(\"alert.log_200901%02d-010101\",$_));}"

外部プログラムを実行し、標準出力・標準エラーを変数にいれつつ戻り値も取得する。 my @stdout = `dir /b 2>&1`; if ($? == 0) { foreach my $line (@stdout) { print "$line"; } }

Perl があれば何でもできる。 C:\temp>dir /b 1_from.txt 2_from.txt 3_from.txt C:\temp>dir /b|perl -nle "$o=$_;$_=~s/from/to/i;rename($o,$_);" C:\temp>dir /b 1_to.txt 2_to.txt 3_to.txt404 Blog Not Found : perl - ワンライナーの書き方入門 を参…

見やすいよう準備して、 SQL> col tablespace_name for a10 SQL> col file_name for a50 SQL> col bytes for 999999999999 一時表領域を拡張する SQL> alter database tempfile '/export/home/oracle/oradata/orcl/temp01.dbf' resize 201M; SQL> select tab…