03-25-2015
Thank you
.... it works perfectly. I went with method 2- I am reading into capturing groupings and regular expressions and they seen most useful in replacement operations of a named value. Is this correct? Thanks again
.
10 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
Hi,
I have got this value 18:21:23.330 in one of my variables.
Now I need to parse this time to something.
And then I have to compare it with 2 times, let's say, 15:00 hrs to 23:00 hrs.
Can Date::Manip rescue me from this horrifying situation?
I am quite new to Perl and especially this... (1 Reply)
Discussion started by: King Nothing
1 Replies
2. Shell Programming and Scripting
Hi all,
I'm attempting to parse through a .bin file word by word and perform a cksum on each word using perl. I'm new to perl so I dont exactly know how to get started. Any help would be greatly appreciated. Thanks! (1 Reply)
Discussion started by: TeamUSA
1 Replies
3. Shell Programming and Scripting
Dear all
anyone willling to help me..i have try so many time but still failed to get the ip address for line
when i print the line is like below
Connected to 192.168.1.13
#!/usr/local/bin/perl
foreach $line(@lines){
if ($line =~ /connected to/) {
$line=~/connected to(.*?) /;
... (2 Replies)
Discussion started by: netxus
2 Replies
4. Shell Programming and Scripting
Hi
I'm writing simple perl script to parse the ftp log as below:
Local directory now /home/user/testing
227 Entering Passive Mode (192,254,19,34,8,228).
125 Data connection already open; Transfer starting.
09-25-09 02:33PM 25333629 abc.tar
09-14-09 12:50PM 18015752... (1 Reply)
Discussion started by: netxus
1 Replies
5. Shell Programming and Scripting
Hi anyone can help.how can i get all second column data in this log below??
x 799002577959.pdf, 25728 bytes, 51 tape blocks
x 800002357216.pdf, 25728 bytes, 51 tape blocks
x aadb090910.txt, 80424 bytes, 158 tape blocks
x tsese090909.txt, 13974 bytes, 28 tape blocks (4 Replies)
Discussion started by: netxus
4 Replies
6. Shell Programming and Scripting
Hi,
I have the file like this:
#Contents of file 1 are:
Dec 10 12:33:44 User1 Interface: Probe
Dec 10 12:33:47 uSER1 SOME DATA
Dec 10 12:33:47 user1 Interface: MSGETYPE
Dec 10 12:34:48 user1 ID: 10.
Dec 10 12:33:55 user1 Interface: MSGTYPE
Dec 10 12:33:55 user1 Id: 9
... (1 Reply)
Discussion started by: vanitham
1 Replies
7. Shell Programming and Scripting
Hello there,
I em executing the following command in a perl script to append "\0" to the end of every line in a file:
###command start
my $cmd = qx{"C:\\gawk" '{print $0 "\\\0"}' C:\file.txt > C:\file_1.txt};
###command end
But i get the following error:
###error meaasge start... (2 Replies)
Discussion started by: nmattam
2 Replies
8. Programming
Hi Perl Guys
I have another perl question
I have the following code that i have written
Getopt::Long::config(qw( permute bundling ));
my $OPT = {};
GetOptions($OPT, qw(
ver=s
help|h
)) or die "options parsing failed";
This will allow the user to do something like... (4 Replies)
Discussion started by: ab52
4 Replies
9. Shell Programming and Scripting
I have an input file attached that I am trying to parse in tab-delimanted format:
The chromosomal variant column contains all the information:
parse rules:
1. 4 zeros after the NC_ and the digits before the .
2. digits after the g. repeated twice separated by a tab
3. letter before the >
4.... (10 Replies)
Discussion started by: cmccabe
10 Replies
10. Shell Programming and Scripting
logver=56 idseq=63256900099118326 itime=1563205190 devid=FG-5KDTB18800138 devname=LAL-C1-FGT-03 vd=USER date=2019-07-15 time=18:39:49 logid="0000000013" type="traffic"
subtype="forward" level="notice" eventtime=1563205189 srcip=11.3.3.17 srcport=50544 srcintf="SGI-CORE.123" srcintfrole="undefined"... (3 Replies)
Discussion started by: arm
3 Replies
LEARN ABOUT DEBIAN
pango::fontdescription
Pango::FontDescription(3pm) User Contributed Perl Documentation Pango::FontDescription(3pm)
NAME
Pango::FontDescription - Pango object to represent a description of a font
HIERARCHY
Glib::Boxed
+----Pango::FontDescription
METHODS
fontdescription = Pango::FontDescription->new
$desc->set_absolute_size ($size)
o $size (double)
Since: pango 1.8
boolean = $desc->better_match ($old_match, $new_match)
o $old_match (Pango::FontDescription or undef)
o $new_match (Pango::FontDescription)
boolean = $desc1->equal ($desc2)
o $desc2 (Pango::FontDescription)
string = $desc->get_family
$desc->set_family ($family)
o $family (string)
$desc->set_family_static ($family)
o $family (string)
fontdescription = Pango::FontDescription->from_string ($str)
o $str (string)
gravity = $desc->get_gravity
Since: pango 1.16
$desc->set_gravity ($gravity)
o $gravity (Pango::Gravity)
Since: pango 1.16
integer = $desc->hash
$desc->merge ($desc_to_merge, $replace_existing)
o $desc_to_merge (Pango::FontDescription)
o $replace_existing (boolean)
$desc->merge_static ($desc_to_merge, $replace_existing)
o $desc_to_merge (Pango::FontDescription)
o $replace_existing (boolean)
fontmask = $desc->get_set_fields
integer = $desc->get_size
boolean = $desc->get_size_is_absolute
Since: pango 1.8
$desc->set_size ($size)
o $size (integer)
stretch = $desc->get_stretch
$desc->set_stretch ($stretch)
o $stretch (Pango::Stretch)
style = $desc->get_style
$desc->set_style ($style)
o $style (Pango::Style)
string = $desc->to_filename
string = $desc->to_string
$desc->unset_fields ($to_unset)
o $to_unset (Pango::FontMask)
variant = $desc->get_variant
$desc->set_variant ($variant)
o $variant (Pango::Variant)
weight = $desc->get_weight
$desc->set_weight ($weight)
o $weight (Pango::Weight)
ENUMS AND FLAGS
flags Pango::FontMask
o 'family' / 'PANGO_FONT_MASK_FAMILY'
o 'style' / 'PANGO_FONT_MASK_STYLE'
o 'variant' / 'PANGO_FONT_MASK_VARIANT'
o 'weight' / 'PANGO_FONT_MASK_WEIGHT'
o 'stretch' / 'PANGO_FONT_MASK_STRETCH'
o 'size' / 'PANGO_FONT_MASK_SIZE'
o 'gravity' / 'PANGO_FONT_MASK_GRAVITY'
enum Pango::Gravity
o 'south' / 'PANGO_GRAVITY_SOUTH'
o 'east' / 'PANGO_GRAVITY_EAST'
o 'north' / 'PANGO_GRAVITY_NORTH'
o 'west' / 'PANGO_GRAVITY_WEST'
o 'auto' / 'PANGO_GRAVITY_AUTO'
enum Pango::Stretch
o 'ultra-condensed' / 'PANGO_STRETCH_ULTRA_CONDENSED'
o 'extra-condensed' / 'PANGO_STRETCH_EXTRA_CONDENSED'
o 'condensed' / 'PANGO_STRETCH_CONDENSED'
o 'semi-condensed' / 'PANGO_STRETCH_SEMI_CONDENSED'
o 'normal' / 'PANGO_STRETCH_NORMAL'
o 'semi-expanded' / 'PANGO_STRETCH_SEMI_EXPANDED'
o 'expanded' / 'PANGO_STRETCH_EXPANDED'
o 'extra-expanded' / 'PANGO_STRETCH_EXTRA_EXPANDED'
o 'ultra-expanded' / 'PANGO_STRETCH_ULTRA_EXPANDED'
enum Pango::Style
o 'normal' / 'PANGO_STYLE_NORMAL'
o 'oblique' / 'PANGO_STYLE_OBLIQUE'
o 'italic' / 'PANGO_STYLE_ITALIC'
enum Pango::Variant
o 'normal' / 'PANGO_VARIANT_NORMAL'
o 'small-caps' / 'PANGO_VARIANT_SMALL_CAPS'
enum Pango::Weight
o 'thin' / 'PANGO_WEIGHT_THIN'
o 'ultralight' / 'PANGO_WEIGHT_ULTRALIGHT'
o 'light' / 'PANGO_WEIGHT_LIGHT'
o 'book' / 'PANGO_WEIGHT_BOOK'
o 'normal' / 'PANGO_WEIGHT_NORMAL'
o 'medium' / 'PANGO_WEIGHT_MEDIUM'
o 'semibold' / 'PANGO_WEIGHT_SEMIBOLD'
o 'bold' / 'PANGO_WEIGHT_BOLD'
o 'ultrabold' / 'PANGO_WEIGHT_ULTRABOLD'
o 'heavy' / 'PANGO_WEIGHT_HEAVY'
o 'ultraheavy' / 'PANGO_WEIGHT_ULTRAHEAVY'
SEE ALSO
Pango, Glib::Boxed
COPYRIGHT
Copyright (C) 2003-2011 by the gtk2-perl team.
This software is licensed under the LGPL. See Pango for a full notice.
perl v5.14.2 2011-11-15 Pango::FontDescription(3pm)