On Monday 16 January 2006 14:32, Andrej Kastrin wrote: > Hi all, Hi Andrej
> I have the file, which looks like: > > *RECORD* > *ID* > 001 > *TITLE* > Here is title number one. > *ABSTRACT* > First sentence of the abstract. Second sentence of the abstract... > Second line of the abstract. > > *RECORD* > *ID* > 002 > *TITLE* > Here is title number one. > *ABSTRACT* > First sentence of the abstract. Second sentence of the abstract... > Second line of the abstract. > > Is there any simple way to transform this file to look like: > *RECORD* > *ID* 001 > *TITLE* Here is title number one. > *ABSTRACT* First sentence of the abstract. Second sentence of the > abstract. Second line of the abstract. > > Thanks in advance for any pointers or notes. I'm also new to this game, but I'll try: #!/usr/bin/perl open FILEHANDLE, "<yourfile.txt" or die "die\n"; #optional use strict; #declare array my @line; # go trough each line # shortcut for: # my $_; # while ( defined ( $_ = <FILEHANDLE> ) ) { while ( <FILEHANDLE> ) { # cut off trailing newline # shortcut for: # chomp $_; chomp; #push the line to the array push ( @line, $_ ); } # join the elements of the array and print them print join(" ", @line); close FILEHANDLE; I guess this should give you some hints about how to manipulate those files of yours, since you don't want to join *all* the file in one line. One way can be to check for lines beginning with '*' (using regexp /^\*/ or something similar) and print those lines with a newline-prefix and the others with a single-space-prefix. There is probably some fancy shortcut for doing all of this in one line, but I don't know it. Yet... Enjoy! -- Bjørge Solli - Office:+47 55205847 cellph.:+47 91614343 Nansen Environmental and Remote Sensing Center - Bergen, Norway http://www.nersc.no Reception: +47 55205800 Dept.: Mohn-Sverdrup Center for Global Ocean Studies and Operational Oceanography -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>