Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re^4: The error says the value is uninitialized, but it works anyway

by afoken (Canon)
on Aug 18, 2019 at 08:22 UTC ( #11104645=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
      OPEN 51:("FOOBAR":"W")  ELSE  GOTO FAILED
      USE 51:("FOOBAR":"W")
      WRITE "HELLO WORLD"
      USE 0
      CLOSE 51
    
  2. or download this
      O 51:("FOOBAR":"W")  E  G FAILED
      U 51:("FOOBAR":"W") W "HELLO WORLD" U 0 C 51
    
  3. or download this
    open HANDLE,'>','FOOBAR' or die;
    select HANDLE;
    print "HELLO WORLD";
    select STDOUT;
    close HANDLE;
    
  4. or download this
    for my $key (sort keys %hash) {
        print $key,"\n";
    }
    
  5. or download this
      SET KEY="" FOR  SET KEY=$ORDER(^HASH(KEY)) QUIT:KEY=""  D
      .WRITE ^HASH(KEY),!
    
  6. or download this
      S KEY="" F  S KEY=$O(^HASH(KEY)) Q:KEY=""  D
      .W ^HASH(KEY),!
    
  7. or download this
    my $key='';
    while (($key=nextkey(\%hash,$key)) ne '') {
      print $hash{$key},"\n";
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://11104645]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (8)
As of 2019-11-19 10:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Strict and warnings: which comes first?



    Results (95 votes). Check out past polls.

    Notices?