Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. 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");