Hi Friends,
Can any one help with this:
I have a huge file with the format as
A SAM 4637
B DEPT1 4758 MILAN
A SMITH 46585
B DEPT2 5385 HARRYIS
B SAMUL 63547 GEORGE
B DANIEL 899 BOISE
A FRES 736 74638
I have to read this file and write only the records that starts with "B" only
... (5 Replies)
Hi,
I have a comma separated file with millions of records in it.
I have a requirement to split the file based on the value in a one of the columns.
Suppose i have a text file with columns like C1, C2,C3,C4
Column C4 can hold the values either 01 or 02 03 or 04.
I nned to extract... (2 Replies)
Hi,
I have the oracle table coulns in an order like
date, state1, state2....state9
and i need to prepare data from the script output for loading in to this table
The script is
#!/bin/ksh
/usr/xpg4/bin/awk -F"-" '{print $2,$4}' /aemu/ErrorLogs/data/MissingCGIcount.txt |... (5 Replies)
Hello,
I am looking for concatenating the lines based on conditions. Below are the contents of the file:
Infile:
-----
Test1.PO_Itm COLUMN GAC_DT.
Test1.PO_Itm COLUMN (PRODTCD ,PLNTCD).
Test1.PO_Itm COLUMN PLNTCD.
Test1.PO_Itm COLUMN ACTVIND.
Test2.RgnToTerrtryGPI COLUMN... (3 Replies)
hi
i have to move files and send an email and attached the bad files to inform the developer about that.
#!/bin/ksh
BASE_DIR=/data/SrcFiles
cd $BASE_DIR
## finding the files from work directory which are changed in 1 day
find -type f -name "*.csv" –ctime 0 > /home/mydir/flist.txt
##... (14 Replies)
Hi Folks
I'm looking for help with if statement.
I'm reading the file with header (starts with 0 on position 1 in the line) and data (starts with 1 on position 1 in the line).
I have to check if the number from header (should be number of data rows) equal actual count of the data rows.
... (4 Replies)
Hi All,
I have following listing
Filesystem GB blocks Free Used Iused Iused Mounted on
/dev/hd2 4.00 0.31 93 63080 43 /usr
Filesystem GB blocks Free Used Iused Iused Mounted on
Filesystem GB blocks Free Used Iused Iused... (11 Replies)
Hello:
I need to copy down some data from the previous record in to the next record based on the below conditions
If position 41- 59 of the current record is same as the previous record and the value of position 62 is not equal to 1 then
copy the previous records value for positions... (1 Reply)
Hi Guys,
I am having below code which runs based on condition, Is it possible to check condition at the time of trigger
code=$1
if ;then
nohup sh script.sh $val 1 &
fi
I need to trigger if the $code = JP then only to trigger nohup sh script.sh $val 1 &
My try but wanted... (4 Replies)
Discussion started by: Master_Mind
4 Replies
LEARN ABOUT MOJAVE
ppi::token::comment
PPI::Token::Comment(3) User Contributed Perl Documentation PPI::Token::Comment(3)NAME
PPI::Token::Comment - A comment in Perl source code
INHERITANCE
PPI::Token::Comment
isa PPI::Token
isa PPI::Element
SYNOPSIS
# This is a PPI::Token::Comment
print "Hello World!"; # So it this
$string =~ s/ foo # This, unfortunately, is not :(
bar
/w;
DESCRIPTION
In PPI, comments are represented by "PPI::Token::Comment" objects.
These come in two flavours, line comment and inline comments.
A "line comment" is a comment that stands on its own line. These comments hold their own newline and whitespace (both leading and trailing)
as part of the one "PPI::Token::Comment" object.
An inline comment is a comment that appears after some code, and continues to the end of the line. This does not include whitespace, and
the terminating newlines is considered a separate PPI::Token::Whitespace token.
This is largely a convenience, simplifying a lot of normal code relating to the common things people do with comments.
Most commonly, it means when you "prune" or "delete" a comment, a line comment disappears taking the entire line with it, and an inline
comment is removed from the inside of the line, allowing the newline to drop back onto the end of the code, as you would expect.
It also means you can move comments around in blocks much more easily.
For now, this is a suitably handy way to do things. However, I do reserve the right to change my mind on this one if it gets dangerously
anachronistic somewhere down the line.
METHODS
Only very limited methods are available, beyond those provided by our parent PPI::Token and PPI::Element classes.
line
The "line" accessor returns true if the "PPI::Token::Comment" is a line comment, or false if it is an inline comment.
SUPPORT
See the support section in the main module.
AUTHOR
Adam Kennedy <adamk@cpan.org>
COPYRIGHT
Copyright 2001 - 2011 Adam Kennedy.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.
perl v5.18.2 2011-02-25 PPI::Token::Comment(3)