Example Perl Scripts: Revision history

Jump to navigation Jump to search

Diff selection: Mark the radio buttons of the revisions to compare and hit enter or the button at the bottom.
Legend: (cur) = difference with latest revision, (prev) = difference with preceding revision, m = minor edit.

1 February 2011

  • curprev 18:4718:47, 1 February 2011 Scott talk contribs 977 bytes +977 Created page with '<source lang="perl"> #!/usr/bin/perl # A script to list which users are actually using the system right now use Text::ParseWords; my @ps_list = `ps -ef`; foreach $line (@ps_lis…'