You forgot the semicolon:
sub replace
{
use $ref -> [X] = "cm498p";
}
At 12:01 PM 11/17/2001, Sherri wrote:
>#!/usr/bin/perl -w
>#This program replaces cm398p with cm498p
>use strict;
>@Classes = ("cm140", "cm325", "cm398p");
>subreplace
>{
>use $ref -> [X] = "cm498p"
>}
>replace (/@Classes);
>print @Classes;
Sliante,
Richard S. Crawford
http://www.mossroot.com
mailto:[EMAIL PROTECTED]
AIM: Buffalo2K ICQ: 11646404 Y!: rscrawford
"It is only with the heart that we see rightly; what is essential is
invisible to the eye." --Antoine de Saint Exup�ry
"Push the button, Max!"
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
