(C) 2003, Tim Maher       1-29       www.TeachMePerl.com
Data Validation
check_pcode


#! /usr/bin/perl -wlnaF:

( $N , $pcode ) = @F;   # $N contains Name
unless ( $pcode =~ /^\d\d\d\d\d$/ ) {
    # Correct Format: Fred Morris:98117
    warn "Bad code on line #$.: $pcode";
}
Examples
$ check_pcode directory
Bad code on line #3: 698107


 $pcode =~ /RE/   match RE against $pcode
   ^\d\d\d\d\d$    exactly five digits
              $.   number of current input line