--- Ned Cunningham <[EMAIL PROTECTED]> wrote: > Snip
>
>
> open CUST, $cust or die "Cant open it :$!";
> open WRFILE, ">$wrfile";
>
> while (defined ($line = <CUST>)) {
>
>
> chomp $line;
> @data = split(/\|/,$line);
> $newnum=$newnum+1;
> printf WRFILE ("0%9d",$newnum);
>
> print WRFILE ";", @data, ";";
> print WRFILE "\n";
> }
>
>
> close CUST;
> close WRFILE;
>
> End
>
>
> I want to write to a file all of the array(@data), except the first
> field????
@data[1..-1]
means the array @data from element 1 to the last element.
Jonathan Paton
=====
$_=q|.,&@$$. ,.@$&@$. .&$$@. ,,$ ....!$_=$p.'&$@.',y'&$@' .,';for(/\S+/g){
!|.q| .$ .,@, ,$, .,.. @, ,$ ,,@ .,,.!++$.<22?${'y'.$_}=chr$.+64:[$$=${'y'
!|.q| ,@$@&.,. $$$&, ..@&&$,,, $., ..!.$_},$y.=($.=~/22\|26\|3(3\|7)/x?' '
!|.q|. @ ., ,.&,,, , .$..&. .,$ .,,!.$$:"\l$$")]};$y=~/ (.*)/;warn"$1\n"
!|.q|. $ .,. .,$$&&$...&., @.,.&@$@ .|,map{-$|--?$r:$p.=$_}split'!';eval$r
__________________________________________________
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
