Maybe using a hash could make things much simpler:
open (STATES, "<state.txt") || die ("can't open state.txt");
while (<STATES>)
{
if (/^(\w+)\:\s+(\d+)$/)
{
$states{$2} .= "$1, ";
}
}
close (STATES);
foreach $code (sort keys (%states))
{
chop $states{$code};
chop $states{$code};
print "$code $states{$code}\n";
}
<br><br><br>Best Regards,
Katherine Qiang
http://home.cwru.edu/~qxq2
http://kittyqiang.tripod.com
>From: "Will Crain" <[EMAIL PROTECTED]>
>To: "Debbie Christensen" <[EMAIL PROTECTED]>,
>[EMAIL PROTECTED]
>Subject: RE: reading a text file
>Date: Wed, 25 Jul 2001 12:24:58 -0500
>
>Debbie, your problem seemed easy enough. See if this works for you:
>
>my $state;
>my $code;
>my $currCode = 0;
>my $outLine = "";
>
>open(STATES, "<state.txt") || die("can't open state:");
>while($line = <STATES>) {
>
> $line =~ /^(\w+): (\d+)/;
> if($code == $currCode) {
> $outLine .= ", " . $1;
> }
> else {
> unless($outLine eq "") { print("$outLine \n"); }
> $outLine = $2 . " " . $1;
> }
>}
>
>print("$outLine \n");
>close STATES
>
>Caveat: this script assumes all input follows as per your example.
>
>
>Will
>
>
>-- Original Message --
>
> >I am brand new to perl; I am only on chapt 4 of the learning perl book.
> > My
> >boss has already given me a project to do that I am really struggling
>with.
> >I know you are all really busy, but I would really appreciate any help
>you
> >can give.
> >
> >I have a text file that looks something like this
> >
> >OH: 702
> >PA: 702
> >ND: 702
> >NJ :703
> >NY: 703
> >Ca: 703
> >
> >
> >#my simple program
> >
> >open(STATES,"state.txt")||
> > die "can't open state:";
> >while ($line = <STATES>)
> >{
> >print $line;
> >}
> >close STATES;
> >
> >
> >I am able to open the file and read it with no problem. Where I get lost
> >is
> >My boss wants the data to come out like
> >702 OH, PA, ND
> >703 NJ, NY, CA
> >
> >I have looked up Faq questions and have looked through my books. I have
> >even tried formating it with no luck. Any help you can give would be
>great.
> >
> >
> >
> >
> >
> >
> >Thanks,
> >Debbie Christensen
> >
> >
> >
> >--
> >To unsubscribe, e-mail: [EMAIL PROTECTED]
> >For additional commands, e-mail: [EMAIL PROTECTED]
> >
> >
>
>
>
>
>Visit iWon.com - the Internet's largest guaranteed cash giveaway! Click
>here now for your "Thank You" gift:
>http://www.iwon.com/giftcenter/0,2612,,00.html?t_id=20157
>
>
>
>
>--
>To unsubscribe, e-mail: [EMAIL PROTECTED]
>For additional commands, e-mail: [EMAIL PROTECTED]
>
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
