Mega Code Archive

 

Categories / Perl / Language Basics

 

Using $_ (dollar underscore)

#!/usr/bin/perl -w use strict; print "contents of @ARGV:\n"; print "[$_]\n" foreach @ARGV; print "\$0: $0\n";