02-27-2008
Hi,
As I am new to Perl scripting, I appologize for my dumb questions. Please help me understand it so that I can utilize it. I added a line to it to open a file, I read this command some where in the net, but not sure where are we writing re-formatted input lines back. Here is it how it looks now.
#!/usr/local/bin/perl
open (MYFILE, "/ABC/XYZ/A123/XmlFldr/test1.xml") or die("Unable to open File");
while (<MYFILE>) {
chomp;
if ( /.*\>$/ ) {
print "$_\n";
} else {
print "$_";
}
}
Also, I noticed that in my input data, especially when a particular tag has data span into multiple lines, for ex:
<Proj_Name>ABC - Mechanical fix<Proj_Name>
<Proj_Descritpion> ABC - Mechanical fix
to a generator x1234m. <Proj_Description>
<Proj_Comment>Project started on so and so date.
It is now running behind schedule due to
unavailable resources<Proj_Comment>
In the above case there are two tags that has data split into multiple lines. This data file comes from a windows environment. So, I am not sure if it has both newline and CR breaking the line.
With Awk script indicated above, it did not convert these lines into one line tags. however, it appears to be working fine by putting remaining lines into one line tags. I would like to get the multiline data tags into one single line.
Any help is appreciated.
Thanks,
Rao
10 More Discussions You Might Find Interesting
1. UNIX for Dummies Questions & Answers
Hi,
I am trying to write a script to prepare some text for use as web content.
What is happening is that all the newlines in the textfile are ignored, so I want
to be able to replace/add a few characters so that for a file containg:
This is line 1.
This is line two.
This is line four.... (1 Reply)
Discussion started by: ghoti
1 Replies
2. UNIX for Dummies Questions & Answers
hi,
I want to print the below lines
"Message from bac logistics
The Confirmation File has not been received."
When i give like this in the code
"Message from bac logistics\n The Confirmation File has not been received."
It is giving only
Message from bac logistics\n The... (9 Replies)
Discussion started by: trichyselva
9 Replies
3. UNIX for Dummies Questions & Answers
hi,
I have a for loop where in I write some file name to another file.
I want to write all the filenames to another without any newlines. how can i avoid getting new lines with echo?
Thanks,
Srilaxmi (2 Replies)
Discussion started by: srilaxmi
2 Replies
4. UNIX for Dummies Questions & Answers
i want to delete the line which is not started with numeric in vim.
vim temp.txt
Volume in drive D is DATA
Volume Serial Number is 8C52-2055
Directory of D:\data\notes
02/16/2010 03:09 PM <DIR> .
02/16/2010 03:09 PM <DIR> ..
09/11/1999 03:03 AM ... (5 Replies)
Discussion started by: Manabhanjan
5 Replies
5. Shell Programming and Scripting
Removed.
My question does not make sense. and SED does see the last newline character.
But I still have a question:
How to remove the last newline character(the newline character at the end of last line) using SED?
---------- Post updated 05-01-11 at 10:51 AM ---------- Previous update was... (7 Replies)
Discussion started by: kevintse
7 Replies
6. UNIX for Dummies Questions & Answers
variable="unix\nlinux"
echo $variable
expected output:
unix
linux
:wall: can i do that ??
thanks in advance!! (3 Replies)
Discussion started by: sathish92
3 Replies
7. Shell Programming and Scripting
I have a file (pema)with a single long record which i have to break up into multiple lines
Input
s1aaaaaaaaaaaaaaaaaaaaaaas1bbbbbbbbbbs1cccccccccc
Output
s1aaaaaaaaaaaaaaaaaaaaaaa
s1bbbbbbbbbb
s1cccccccccc
m planning to do it by replacing s1 by \ns1 \n is the new line character
i... (5 Replies)
Discussion started by: pema.yozer
5 Replies
8. UNIX for Dummies Questions & Answers
So I have a file that contains
>NM_#########AUGCAUCGUAGCUAGUCGAUACUGGACUG>NM_########AUGAGUAUGUAUGAUGUAUGUAUGA
where # is any digit 0-9 (the text is many repetitions of the pattern above, not just that, but all in one line), and I want it to show
>NM_#########... (2 Replies)
Discussion started by: ShiGua
2 Replies
9. Shell Programming and Scripting
Hi all..
I have a text file which looks like below:
abcd
efgh
ijkl
(blank space)
I need to remove only the last (blank space) from the file. When I try wc -l the file name,the number of lines coming is 3 only, however blank space is there in the file.
I have tried options like... (14 Replies)
Discussion started by: Sathya83aa
14 Replies
10. Shell Programming and Scripting
I have a file which comes every day and the file data look's as below.
Vi abc.txt
a|b|c|d\n
a|g|h|j\n
Some times we receive the file with only a new line character in the file like
vi abc.txt
\n (8 Replies)
Discussion started by: rak Kundra
8 Replies
LEARN ABOUT DEBIAN
swiss::stars
SWISS::Stars(3pm) User Contributed Perl Documentation SWISS::Stars(3pm)
NAME
SWISS::Stars.pm
DESCRIPTION
SWISS::Stars represents the ** lines within an SWISS-PROT + TrEMBL entry. These are the lines with the line tag ** which are normally not
publicly visible.
SWISS::Stars is a master object like SWISS::Entry. It contains subobjects which represent the different line types in the ** section. Each
line type has a two letter tag in addition to the ** line tag. This module has been written to allow easy addition of new ** line types. To
use a new ** line tag, just use the tag as an object dereference. Example:
$entry->Stars->XX->add("New XX tag line.","Second new XX tag line.");
If there is no class SWISS::Stars::XX, the class of the new object will be SWISS::Stars::default, which handles lines with the
corresponding tag as an array of lines. If more specific handling is required, a new class SWISS::Stars::XX can be created following the
template of SWISS::Stars::default. An example is SWISS::Stars::aa.
Subclass names and new line tags have to be two-letter-tags. No checks are made wheter the dereferenced tag is allowed.
Access to the (old) unstructured ANNOTATOR'S SECTION is provided by the line tag 'aa'.
$entry->Stars->aa->add("Testline 1.","Second new test line.");
will add these two lines to the ANNOTATOR'S SECTION.
Inherits from
SWISS::BaseClass.pm
Attributes
No public attributes apart from the subclasses.
Methods
Standard methods
new
fromText
toText
update
perl v5.10.1 2006-01-26 SWISS::Stars(3pm)