構文 |
|
warn 警告文字列 |
返り値 |
|
処理成功時に真 |
説明
- 警告文字列の値を標準エラー出力に出力します。
- 省略すると$@が代わりに使われます。$@に値がない場合は"Warning: Something's wrong"を出力します。
使用例
#!/usr/bin/perl
use strict;
use warnings;
my $filename = 'dummyfile';
unlink $filename or warn "$!:$filename";
#!/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";
}