Mega Code Archive

 

Categories / Perl / Language Basics

 

Extracts information from the $] variable

#!/usr/local/bin/perl  $] =~ /Revision: ([0-9.]+)/;  $revision = $1;  $] =~ /Patch level: ([0-9]+)/;  $patchlevel = $1;  print ("revision $revision, patch level $patchlevel\n");