Hi all the experts out there,
I am totally new to perl and I was given an assignment by using Perl to find the 2nd element of each line in each curly bracket which made up of 5 elements.
***Jojo*** VCC={NA AK32 {NA} NA NA} {NA AL32 {NA} NA NA} {NA AH21 {NA} NA NA} {NA AJ21 {NA} NA NA}
***Jojo*** NC={NA AW34 {NA} NA NA} {NA AW35 {NA} NA NA} {NA V27 {NA} NA NA} {NA AF20 {NA} NA NA} {NA AW5 {NA} NA NA} {NA AW6 {NA} NA NA} {NA H6 {NA} NA NA} {NA N22 {NA} NA NA}
***Jojo*** GND={NA T12 {NA} NA NA} {NA AC14 {NA} NA NA} {NA A35 {NA} NA NA} {NA A37 {NA} NA NA} {NA A38 {NA} NA NA} {NA AA34 {NA} NA NA} {NA AA35 {NA} NA NA} {NA AA38 {NA} NA NA} {NA AA39 {NA} NA NA} {NA AB32 {NA} NA NA} {NA AB36 {NA} NA NA} {NA AB37 {NA} NA NA} {NA AC34 {NA} NA NA} {NA AC35 {NA} NA NA} {NA AC38 {NA} NA NA} {NA AC39 {NA} NA NA} {NA AD31 {NA} NA NA} {NA AD33 {NA} NA NA} {NA AD36 {NA} NA NA} {NA AD37 {NA} NA NA} {NA AE34 {NA} NA NA} {NA AE35 {NA} NA NA} {NA AE38 {NA} NA NA} {NA AE39 {NA} NA NA} {NA AF32 {NA} NA NA} {NA AF36 {NA} NA NA} {NA AF37 {NA} NA NA} {NA AG34 {NA} NA NA} {NA AG35 {NA} NA NA} {NA AG38 {NA} NA NA} {NA AG39 {NA} NA NA} {NA AH31 {NA} NA NA} {NA AH33 {NA} NA NA} {NA AH36 {NA} NA NA} {NA AH37 {NA} NA NA} {NA AJ34 {NA} NA NA} NA} {NA AT35 {NA} NA NA} NA NA}L35 {NA} NA NA} {NA L38 {NA} NA NA} {NA L39 {NA} NA NA} {NA M31 {NA} NA NA} {NA M36 {NA} NA NA} {NA M37 {NA} NA NA} {NA N34 {NA} NA NA} {NA N35 {NA} NA NA} {NA N38 {NA} NA NA}
Last edited by killbanne; 06-27-2012 at 12:29 AM..
Hi
I have a file diskspace.txt
the data in that file is asFilesystem kbytes used avail %used Mounted on
/dev/vg06/lvol1 18870272 12099836 6673336 64% /dist
know i am writing a script to get the above bold data and that data need to be used as a input.
any idea... (4 Replies)
Oracle procedure create files on UNIX folder on a regular basis. I need to FTP files onto windows server and place the files, based on their name, in the corresponding folders. File name is as follows: ccyymmddfoldernamefile.txt; Folder Name length could be of any size; however, the prefix and... (3 Replies)
Hi,
I am looking for the unix script which can takes the 2 month old data from a TXT file (there is one txt file in whiche messages are appended on daily basis) and compress them into new file.Please halp me out. (2 Replies)
I am faced with a :confused: tricky problem to parse a data file ( May not be a tricky problem to the scripting guru's ).
Here is what I am faced with. I have a file with multiple rows of data and the rows are not of fixed length. "|" is used as a delimiters for individual columns and each row... (3 Replies)
Hi,
I need to parse this data FastEthernet0/9,|FastEthernet0/10,|FastEthernet0/11,FastEthernet0/13|,
FastEthernet0/12,FastEthernet0/24 . and get only the value like e.g 0/24,0/11. how to do this in shell script.
Thanks in Advance. (2 Replies)
Experts and Informed folks,
Need some help here in parsing the log file.
1389675 Opera_ShirtCatalog INSERT INTO Opera_ShirtCatalog(COL1, COL2) VALUES (1, 'TEST1'), (2,'TEST2');
1389685 Opera_ShirtCatlog_Wom INSERT INTO Opera_ShirtCatlog_Wom(col1, col2, col3) VALUES (9,'Siz12, FormFit',... (12 Replies)
Hi Unix gurus..
I have a file which has below data, It has several MQ Queue statistics;
QueueName= 'TEST1'
CreateDate= '2009-10-30'
CreateTime= '13.45.40'
QueueType= Predefined
QueueDefinitionType= Local
QMinDepth= 0
QMaxDepth= 0
QueueName= 'TEST2'
CreateDate= '2009-10-30'... (6 Replies)
Hi Guys,
I have file A.txt
File A Data
AK1521
AK2536
AK3164
I want create text file of all data above and write some data on each file.
want Output on below folder
/home/kka/out
AK1521.txt
Hi
Welocme (3 Replies)
Hey all,
i´ve got the following problem:
i´m aquiring data with an instrument and i get data in a .txt file.
This is how the txt file looks like:
Report of AU program poptau
F1P=-49.986ppm F2P=-110.014ppm
Target directory for serfile: D:/data/Spect500/nmr/Thoma/882
Linear... (17 Replies)
Below is a perl code I am trying.
#!/usr/bin/perl
#use strict;
use warnings qw/ all FATAL /;
use constant ENV_FILE => '/apps/env_data.txt';
$uenv = $ARGV;
my $input = $uenv;
open my $fh, '<', ENV_FILE
or die sprintf qq{Unable to open "%s" for input: $!}, ENV_FILE;
... (2 Replies)
Discussion started by: Tuxidow
2 Replies
LEARN ABOUT DEBIAN
xml::parser::style::stream
Parser::Style::Stream(3pm) User Contributed Perl Documentation Parser::Style::Stream(3pm)NAME
XML::Parser::Style::Stream - Stream style for XML::Parser
SYNOPSIS
use XML::Parser;
my $p = XML::Parser->new(Style => 'Stream', Pkg => 'MySubs');
$p->parsefile('foo.xml');
{
package MySubs;
sub StartTag {
my ($e, $name) = @_;
# do something with start tags
}
sub EndTag {
my ($e, $name) = @_;
# do something with end tags
}
sub Characters {
my ($e, $data) = @_;
# do something with text nodes
}
}
DESCRIPTION
This style uses the Pkg option to find subs in a given package to call for each event. If none of the subs that this style looks for is
there, then the effect of parsing with this style is to print a canonical copy of the document without comments or declarations. All the
subs receive as their 1st parameter the Expat instance for the document they're parsing.
It looks for the following routines:
o StartDocument
Called at the start of the parse .
o StartTag
Called for every start tag with a second parameter of the element type. The $_ variable will contain a copy of the tag and the %_
variable will contain attribute values supplied for that element.
o EndTag
Called for every end tag with a second parameter of the element type. The $_ variable will contain a copy of the end tag.
o Text
Called just before start or end tags with accumulated non-markup text in the $_ variable.
o PI
Called for processing instructions. The $_ variable will contain a copy of the PI and the target and data are sent as 2nd and 3rd
parameters respectively.
o EndDocument
Called at conclusion of the parse.
perl v5.14.2 2011-05-25 Parser::Style::Stream(3pm)