#!/bin/ksh
curval=""
while read line
do
val=$(echo $line | cut -d, -f1)
if [ "$val" != "" ]
then
curval=$val
echo $line
else
echo ${curval}${line}
fi
done
Hi,
Suppose I have the following text in a file.
ORA-00942: table or view does not exist
ORA-01555: snapshot too old: rollback segment number string with name "string"
too small
Is there any way I can list all the text that starts only with 'ORA-'?
Or there any grep command that can... (7 Replies)
Hi,
I have a file with rows of text like so :
E100005568374098100000015667
D100005568374032000000112682
H100005228374060800000002430
I need to grab just the last digits(bolded) of each line without the proceeding text/numbers.
Thanks (5 Replies)
Hi,
i am just gettin exposed to UNIX.
Could anyone of u help me out with dis problem..?
i have a variable 'act' which has the value as follows,
echo $act gives -0- -0- -----0---- 2008-06-04 -0- -0-
echo "$act" | awk '{print ($act)}'
gives,
-0-
-0-
-----0----
2008-06-04
-0-
-0-
I... (2 Replies)
i have a file that contains a pattern like this:
ajay 1234 newyork available
kumar 2345 denver
singh 2345 newyork
ajay 3456 denver
kumar 3456 newyork
singh 3456 delhi available
ajay 4567 miami
kumar 4567 miami
singh 4567 delhi
i want to search for each line... (5 Replies)
First of all I am VERY new to this so bare with me and try and explain everything even if it seems simple.
Basically I want to read a line of text from a html file. See if the line of text has a certain string in it. copy an unknown number of characters (the last 4 characters wiil be ".jpg" the... (1 Reply)
Hi,
I have a file in the following format
123|shanwer|15DEC2010|bgbh|okok|16JAN3000|okok|
I want the following to be in following format
123|shanwer|12\15\2010|bgbh|okok|01\16\3000|okok|
SED/PERL/AWK Gurus
could you please help me with this?
Thanks
Shankar (8 Replies)
Hi All,
Pls help me out on the below,
05 LAMSZ201-ZM-MEMO2-DATE02-5 PIC X(10).
05 LAMSZ201-ZM-MEMO2-AMT02-5 PIC S9(13)V99.
05 LAMSZ201-ZM-MEMO2-TYPE02-6 PIC XXX.
05 LAMSZ201-ZM-MEMO2-DATE02-6 PIC X(10).
05 ... (2 Replies)
Hello
Could you help with small script:
How to split string X1 into 3 string
String X1 can have 1 or many strings
X1='A1:B1:C1:D1:A2:B2:C2:D2:A3:B3:C3:D3'
This is output which I want to have:
Z1='A1:B1:C1:D1'
Z2='A2:B2:C2:D2'
Z3='A3:B3:C3:D3' (5 Replies)
i have something like this...
echo "teCertificateId" | awk -F'Id' '{ print $1 }' | awk -F'te' '{ print $2 }'
Certifica
the awk should remove 'te' only if it is present at the start of the string.. anywhere else it should ignore it.
expected output is
Certificate (7 Replies)
I'm making a little game in Perl, and I am trying to remove the first instance of a character in an arbitrary string. For example, if the string is
"cupcakes"and the user enters another string that contains letters from "cupcake" e.g:
"sake"the original string will now look like this (below)... (3 Replies)
Discussion started by: whyte_rhyno
3 Replies
LEARN ABOUT CENTOS
gd::barcode::code39
Barcode::Code39(3) User Contributed Perl Documentation Barcode::Code39(3)NAME
GD::Barcode::Code39 - Create Code39 barcode image with GD
SYNOPSIS
ex. CGI
use GD::Barcode::Code39;
binmode(STDOUT);
print "Content-Type: image/png
";
print GD::Barcode::Code39->new('*CODE39IMG*')->plot->png;
with Error Check
my $oGdBar = GD::Barcode::Code39->new('*123456789;*');
die $GD::Barcode::Code39::errStr unless($oGdBar); #Invalid Characters
DESCRIPTION
GD::Barcode::Code39 is a subclass of GD::Barcode and allows you to create CODE-39 barcode image with GD. This module based on "Generate
Barcode Ver 1.02 By Shisei Hanai 97/08/22".
new
$oGdBar = GD::Barcode::Code39->new($sTxt);
Constructor. Creates a GD::Barcode::Code39 object for $sTxt.
plot()
$oGd = $oGdBar->plot([Height => $iHeight, NoText => 0 | 1]);
creates GD object with barcode image for the $sTxt specified at new method. $iHeight is height of the image. If NoText is 1, the image has
no text image of $sTxt.
ex.
my $oGdB = GD::Barcode::Code39->new('*12345*');
my $oGD = $oGdB->plot(NoText=>1, Height => 20);
# $sGD is a GD image with Height=>20 pixels, with no text.
barcode()
$sPtn = $oGdBar->barcode();
returns a barcode pattern in string with '1' and '0'. '1' means black, '0' means white.
ex.
my $oGdB = GD::Barcode::Code39->new('*12345*');
my $sPtn = $oGdB->barcode();
# $sPtn = '';
$errStr
$GD::Barcode::Code39::errStr
has error message.
$text
$oGdBar->{text}
has barcode text based on $sTxt specified in new method.
AUTHOR
Kawai Takanori GCD00051@nifty.ne.jp
COPYRIGHT
The GD::Barocde::Code39 module is Copyright (c) 2000 Kawai Takanori. Japan. All rights reserved.
You may distribute under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl README file.
SEE ALSO
GD::Barcode
perl v5.16.3 2003-05-29 Barcode::Code39(3)