daily pastebin goal
61%
SHARE
TWEET

Untitled

a guest Mar 13th, 2018 53 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. my $fh = IO::String->new($string);
  2.  
  3. # readline builtin calls getline method
  4. while ( defined( my $line = <$fh> ) ) {
  5.     ...
  6. }
  7.  
  8. # print builtin calls print method
  9. print $fh "foo";
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top