#!/usr/bin/perl --
use strict;
use warnings;
Main( @ARGV );
exit( 0 );
sub Fudge {
use Errno();
join qq/\n/,
"Error @_",
map { " $_" } int( $! ) . q/ / . $!,
int( $^E ) . q/ / . $^E,
grep( { $!{$_} } keys %! ),
q/ /;
}
sub Main {
for my $unfile ( 'NUL', './..', 'XYZQQQQQQQQQ', ){
unlink $unfile or warn Fudge( $unfile );
}
}
__END__
Error NUL
22 Invalid argument
87 The parameter is incorrect
EMARCH_ENC_I17_IMM41a_VAL_POS_X
EMR_SETTEXTALIGN
EVENT_SYSTEM_MINIMIZESTART
ERROR_BAD_COMMAND
EINVAL
at - line 20.
Error ./..
22 Invalid argument
5 Access is denied
EMARCH_ENC_I17_IMM41a_VAL_POS_X
EMR_SETTEXTALIGN
EVENT_SYSTEM_MINIMIZESTART
ERROR_BAD_COMMAND
EINVAL
at - line 20.
Error XYZQQQQQQQQQ
2 No such file or directory
2 The system cannot find the file specified
ETO_OPAQUE
ERROR_LABEL_QUESTIONABLE
EDS_RAWMODE
EWX_REBOOT
EC_QUERYWAITING
EIMES_CANCELCOMPSTRINFOCUS
ENOENT
ELEMENT_STATUS_IMPEXP
ENABLE_WRAP_AT_EOL_OUTPUT
ES_RIGHT
EV_RXFLAG
ERROR_FILE_NOT_FOUND
EVENTLOG_WARNING_TYPE
EVENPARITY
ENOFILE
ESB_DISABLE_RTDN
EMARCH_ENC_I17_IMM41c_INST_WORD_X
EEInfoNextRecordsMissing
ES_DISPLAY_REQUIRED
ESB_DISABLE_RIGHT
EVENT_MODIFY_STATE
EMR_POLYBEZIER
ENABLE_LINE_INPUT
EVENT_SYSTEM_ALERT
EXCEPTION_UNWINDING
EC_RIGHTMARGIN
EVENTLOG_END_PAIRED_EVENT
EXTEND_IEPORT
ExceptionNestedException
ESB_DISABLE_DOWN
EVENTLOG_SEEK_READ
at - line 20.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|