root/examples/pipe_open.pl
| Revision 11293, 182 bytes (checked in by Darren_Duncan, 3 years ago) |
|---|
| Line | |
|---|---|
| 1 | use v6-alpha; |
| 2 | |
| 3 | my $pugs = (($*OS ~~ any <MSWin32 cygwin msys>) ?? "pugs.exe" !! "./pugs"); |
| 4 | #say "using $pugs"; |
| 5 | |
| 6 | my $pipe = Pipe::open("$pugs -V", :r); |
| 7 | |
| 8 | print "got> $_\n" for =$pipe; |
Note: See TracBrowser
for help on using the browser.
