fork download 
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use IO::File;
  5.  
  6. my $fh = IO::File->new('/etc/passwd', 'r');
  7.  
  8. while (<$fh>) {
  9. 	chomp;
  10. 	print "$. $_\n";
  11. }
  12.  
  13. $fh->close();
Success #stdin #stdout 0.01s 6712KB
comments (?)
stdin 
Standard input is empty
stdout 
1 root:x:0:0:root:/root:/bin/bash
2 daemon:x:1:1:daemon:/usr/sbin:/usr/sbin/nologin
3 bin:x:2:2:bin:/bin:/usr/sbin/nologin
4 sys:x:3:3:sys:/dev:/usr/sbin/nologin
5 sync:x:4:65534:sync:/bin:/bin/sync
6 games:x:5:60:games:/usr/games:/usr/sbin/nologin
7 man:x:6:12:man:/var/cache/man:/usr/sbin/nologin
8 lp:x:7:7:lp:/var/spool/lpd:/usr/sbin/nologin
9 mail:x:8:8:mail:/var/mail:/usr/sbin/nologin
10 news:x:9:9:news:/var/spool/news:/usr/sbin/nologin
11 uucp:x:10:10:uucp:/var/spool/uucp:/usr/sbin/nologin
12 proxy:x:13:13:proxy:/bin:/usr/sbin/nologin
13 www-data:x:33:33:www-data:/var/www:/usr/sbin/nologin
14 backup:x:34:34:backup:/var/backups:/usr/sbin/nologin
15 list:x:38:38:Mailing List Manager:/var/list:/usr/sbin/nologin
16 irc:x:39:39:ircd:/var/run/ircd:/usr/sbin/nologin
17 gnats:x:41:41:Gnats Bug-Reporting System (admin):/var/lib/gnats:/usr/sbin/nologin
18 nobody:x:65534:65534:nobody:/nonexistent:/usr/sbin/nologin
19 systemd-timesync:x:100:103:systemd Time Synchronization,,,:/run/systemd:/bin/false
20 systemd-network:x:101:104:systemd Network Management,,,:/run/systemd/netif:/bin/false
21 systemd-resolve:x:102:105:systemd Resolver,,,:/run/systemd/resolve:/bin/false
22 systemd-bus-proxy:x:103:106:systemd Bus Proxy,,,:/run/systemd:/bin/false
https://ideone.com/pZhIug
language:
Perl (perl 5.28.1)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!