Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical
 
PerlMonks  

Re^3: current directory ($! $^E %! Fudge )

by Anonymous Monk
on Jul 01, 2013 at 07:05 UTC ( #1041765=note: print w/replies, xml ) Need Help??


in reply to Re^2: current directory
in thread current directory

#!/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.

Replies are listed 'Best First'.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1041765]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (5)
As of 2017-11-22 00:06 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:













    Results (312 votes). Check out past polls.

    Notices?