 |
 |
 |
構文 |
|
|
warn 警告文字列 |
|
返り値 |
|
|
処理成功時に真 |
|
説明
- 警告文字列の値を標準エラー出力に出力します。
- 省略すると$@が代わりに使われます。$@に値がない場合は"Warning: Something's wrong"を出力します。
使用例
ファイルdummyfileの削除に失敗した場合警告を出力する
#!/usr/bin/perl
use strict;
use warnings;
my $filename = 'dummyfile';
unlink $filename or warn "$!:$filename";ファイルdummyfileの削除に失敗した場合警告を出力する（Carp::carpを使用する）
#!/usr/bin/perl
use strict;
use warnings;
use Carp;
my $filename = 'dummyfile';
delete_file($filename);
sub delete_file {
my $filename = shift;
unlink $filename or carp "$!:$filename";
}
