Re: From column to row?
- From: krahnj@xxxxxxxxx (John W. Krahn)
- Date: Mon, 28 Nov 2005 16:48:35 -0800
Andrej Kastrin wrote:
>
> I suppose that above example is not good one; here is the real one:
> Mark
> Francesco
> Ann
> Robert
>
> transform to: "Mark","Francesco","Ann","Robert"
>
> and here is my code:
>
> $source_file = "input.txt";
> $result_file = "output.txt";
>
> open (SOURCE, $source_file) || die "cannot open $source_file: $!";
> open (RESULT, ">$result_file") || die "cannot open $result_file: $!";
>
> while (<SOURCE>)
> {
> my($line) = $_;
> if ($line =~ $) #match to end of line
> {
> print "$line"; #how to make e.g. "Mark",
> }
> }
This should do what you want (untested):
use warnings;
use strict;
my $source_file = 'input.txt';
my $result_file = 'output.txt';
open SOURCE, '<', $source_file or die "cannot open $source_file: $!";
open RESULT, '>', $result_file or die "cannot open $result_file: $!";
while ( my $line = <SOURCE> ) {
chomp $line;
print qq/"$line"/, eof SOURCE ? "\n" : ',';
}
__END__
John
--
use Perl;
program
fulfillment
.
- References:
- From column to row?
- From: Andrej Kastrin
- Re: From column to row?
- From: Chris Devers
- Re: From column to row?
- From: Andrej Kastrin
- From column to row?
- Prev by Date: Re: From column to row?
- Next by Date: reading a hash
- Previous by thread: Re: From column to row?
- Next by thread: Re: From column to row?
- Index(es):
Relevant Pages
|
|
