Hello,
Can you explain why in the first 2 commands the awk does not print anything? Is it looking of a specific format ?
Thanks.
$ echo 12a3 | awk '($1>=2) {print $1}' # prints nothing
$ echo 123a | awk '($1>=2) {print $1}' # prints nothing
$ echo a123 | awk '($1>=2) {print $1}'
a123... (1 Reply)
Hi Everyone,
# cat 1
1;2;3;4;5;6
1;2;3;4;5;
# awk -F ";" '$5 == "5"' 1
1;2;3;4;5;6
1;2;3;4;5;
but the output is should be just "1;2;3;4;5;6" means 1st condition: $5 is 5; 2nd condition: $6 is not empty, please advice. Thanks (2 Replies)
Hi there, here is my command
ssh host.local "/path/to/my/perscript/hostconfig.pl -s $HOST -d |awk '{if (\$4 > 120)print \"My error message\";exit}{s=0; for (i=1; i<=NF; i++) s++; if(s == 13) print \$3}'"
The problem is if conditional 1 is met (i.e $4 > 120), i don't see "My error message", the... (5 Replies)
Hi All,
I have a file with below contents.
"en2"/10.185.81.0:cluster_interconnect,"en5"/10.185.81.0:cluster_interconnect,"en6"/169.181.146.0:public
I want to take the interface name from the file and convert it as ipaddress using ifconfig command get the output like below
en6 ->... (2 Replies)
I'm having a problem pulling UID's from data. The data outputs a user's UID in one of three ways:
1. Error User user_name already assigned with <UID>
2. Success <UID> reserved for user_name
3. <a load of crap because there was a db failure yet somehow the UID is still in there>
I typically... (5 Replies)
Hello Friends,
I need to find some CDRs in production servers whose 1st field value and 2nd field value = 1 and 11th looks like 45.123... where there are more than 3 digits after comma.so i wrote a one liner, something like below but does not work, however when i used first and second conditions... (8 Replies)
Hi
I've been trying to get this to work but so far no luck.
#!/usr/bin/ksh
unset EXP
APP=$1
EXP=`sed -n "/${APP}/p" tIclrpt.out |awk '{print $7}'|sed '/^$/d'`
EXT=`sed -n "/${i}/p" ${SESLOG} |awk '{print $4}'|grep "${i}"`
EXEM=/path/to/fail
ACTI=/path/to/success
if ||
then... (10 Replies)
Hi All ,
I am having a file like this
INPUT FILE
###############################
addfd_mjlala kksks sksks ks
annsns_bbox_2 (sksksk ksks )
adnndn_nsns_bbox_3 (( jsjsdj sjsj )
malm_dkdm lsls lsl
mdndk_mkmd_dkd_bbox_4_kdkd
ksksk skksk_bbox_jsj_KSK ((jsjsj jsjsj )... (2 Replies)
Discussion started by: kshitij
2 Replies
LEARN ABOUT DEBIAN
gd::barcode
Barcode(3pm) User Contributed Perl Documentation Barcode(3pm)NAME
GD::Barcode - Create barcode image with GD
SYNOPSIS
ex. CGI
use GD::Barcode::UPCE;
binmode(STDOUT);
print "Content-Type: image/png
";
print GD::Barcode->new('EAN13', '123456789012')->plot->png;
with Error Check
my $oGdBar = GD::Barcode->new('EAN13', '12345678901');
die $GD::Barcode::errStr unless($oGdBar); #Invalid Length
$oGdBar->plot->png;
DESCRIPTION
GD::Barcode is a subclass of GD and allows you to create barcode image with GD. This module based on "Generate Barcode Ver 1.02 By Shisei
Hanai 97/08/22".
From 1.14, you can use this module even if no GD (except plot method).
new
$oGdBar = GD::Barcode::UPCE->new($sType, $sTxt);
Constructor. Creates a GD::Barcode::$sType 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->new('EAN13', '123456789012');
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->new('UPCE', '123456789012');
my $sPtn = $oGdB->barcode();
# $sPtn = '';
$errStr
$GD::Barcode::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 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 GD::Barcode subclasses
perl v5.12.3 2004-04-24 Barcode(3pm)