I am writing script that will act like the 'comm' utility. My
problem is when trying to read whether the user has entered -123 or -1
or -1...etc.
I currently have:
if(m/??/g){
print "Good.\n";
}
So, this should check for all... (1 Reply)
how to find for a file whose name has all characters in uppercase after 'project'?
I tried this:
find . -name 'project**.pdf'
./projectABC.pdf
./projectABC123.pdf
I want only ./projectABC.pdf
What is the regular expression that correponds to "all characters are capital"?
thanks (8 Replies)
Hello,
$line=USING (FILE '/TEST1/FILENAME'5000)
I want to reterive the value between ' and ) which is 5000 here.
i have tried out the following expressions ...
Type 1 : $Var1=`sed -e 's/.*\' //' -e 's\).*$/' $line`;
Type 2 : $Var1=`echo $line | awk -F"\'" '{print $2}' | awk -F"\\)"... (1 Reply)
Hello guys/gals,
i am sorry as this is probably very simply but i am slowly learning perl and need to convert some old korn shell scripts.
I need to be able to search a file line by line but only match a string at particular location on that line, for example character 20-30. So my file... (4 Replies)
Hello everybody,
I am trying to connect from hp-ux to win 2003 using perl's Net::Telnet module. Seeing the examples in couple of web sites, I saw I have to declare a Prompt =>
Can somebody please tell me what my regular expression should be? The prompt after I log in is:
...
login:... (1 Reply)
i have a set of regular expressions. The words in the regular expression should be used to replace the i/p with hyphens '---'. i need perl script to evaluate these regular expression. the words in the regexes when found in the i/p file should be replaced with hyphens '---'.
the set of regular... (3 Replies)
Take a look at this code:
#!/usr/bin/perl
use 5.008;
$_ = "somename@address.com";
if(/\@\w+\.com/)
{
print "\n\nmight be an email address\n\n";
}
else
{
print "\n\nnot an email address\n\n";
}
Shouldn't the /\@\w+\.com/ evaluate as true? I've also tried:
... (3 Replies)
Hello all,
i am in a bit of dilema here. i dont know any thing about perl or python. only know a little bit of awk. now unable to take a decission as to which language to go for. my requirement is building a testing framework.suite which will execute ssytem comands remotely on unix... (2 Replies)
Hi Team,
I have two strings like:
xxx|yyy|Arizona Cardinals| Tell Cardinals | Cardinals
bbb|Bell Earn, Jr | Bell Earn | Jayhawks | hawks
I have a lookup file which has a set of strings. These need to be removed from above two strings
Lookup file Contents:
Bell Earn, Jr
hawks... (2 Replies)
im trying to extract some tags between and in a file..for eg..the file format is
I want the and extracted from the file i.e the tags which is present b/w and
I have the regex for extracting the tags from the whole file but how to specify my search within the and... (1 Reply)
Discussion started by: rajkrishna89
1 Replies
LEARN ABOUT DEBIAN
gtk2::pagesetup
Gtk2::PageSetup(3pm) User Contributed Perl Documentation Gtk2::PageSetup(3pm)NAME
Gtk2::PageSetup - wrapper for GtkPageSetup
HIERARCHY
Glib::Object
+----Gtk2::PageSetup
METHODS
pagesetup = Gtk2::PageSetup->new
pagesetup = Gtk2::PageSetup->new_from_file ($file_name)
o $file_name (localized file name)
May croak with a Glib::Error in $@ on failure.
Since: gtk+ 2.12
pagesetup = Gtk2::PageSetup->new_from_key_file ($key_file, $group_name)
o $key_file (Glib::KeyFile)
o $group_name (string or undef)
May croak with a Glib::Error in $@ on failure.
Since: gtk+ 2.12
double = $setup->get_bottom_margin ($unit)
o $unit (Gtk2::Unit)
$setup->set_bottom_margin ($margin, $unit)
o $margin (double)
o $unit (Gtk2::Unit)
double = $setup->get_left_margin ($unit)
o $unit (Gtk2::Unit)
$setup->set_left_margin ($margin, $unit)
o $margin (double)
o $unit (Gtk2::Unit)
$setup->load_file ($file_name)
o $file_name (string)
May croak with a Glib::Error in $@ on failure.
Since: gtk+ 2.14
$setup->load_key_file ($key_file, $group_name)
o $key_file (Glib::KeyFile)
o $group_name (string or undef)
May croak with a Glib::Error in $@ on failure.
Since: gtk+ 2.14
pageorientation = $setup->get_orientation
$setup->set_orientation ($orientation)
o $orientation (Gtk2::PageOrientation)
double = $setup->get_page_height ($unit)
o $unit (Gtk2::Unit)
double = $setup->get_page_width ($unit)
o $unit (Gtk2::Unit)
double = $setup->get_paper_height ($unit)
o $unit (Gtk2::Unit)
$setup->set_paper_size_and_default_margins ($size)
o $size (Gtk2::PaperSize)
papersize = $setup->get_paper_size
$setup->set_paper_size ($size)
o $size (Gtk2::PaperSize)
double = $setup->get_paper_width ($unit)
o $unit (Gtk2::Unit)
double = $setup->get_right_margin ($unit)
o $unit (Gtk2::Unit)
$setup->set_right_margin ($margin, $unit)
o $margin (double)
o $unit (Gtk2::Unit)
$setup->to_file ($file_name)
o $file_name (localized file name)
May croak with a Glib::Error in $@ on failure.
Since: gtk+ 2.12
$setup->to_key_file ($key_file, $group_name)
o $key_file (Glib::KeyFile)
o $group_name (string or undef)
Since: gtk+ 2.12
double = $setup->get_top_margin ($unit)
o $unit (Gtk2::Unit)
$setup->set_top_margin ($margin, $unit)
o $margin (double)
o $unit (Gtk2::Unit)
ENUMS AND FLAGS
enum Gtk2::PageOrientation
o 'portrait' / 'GTK_PAGE_ORIENTATION_PORTRAIT'
o 'landscape' / 'GTK_PAGE_ORIENTATION_LANDSCAPE'
o 'reverse-portrait' / 'GTK_PAGE_ORIENTATION_REVERSE_PORTRAIT'
o 'reverse-landscape' / 'GTK_PAGE_ORIENTATION_REVERSE_LANDSCAPE'
enum Gtk2::Unit
o 'pixel' / 'GTK_UNIT_PIXEL'
o 'points' / 'GTK_UNIT_POINTS'
o 'inch' / 'GTK_UNIT_INCH'
o 'mm' / 'GTK_UNIT_MM'
SEE ALSO
Gtk2, Glib::Object
COPYRIGHT
Copyright (C) 2003-2011 by the gtk2-perl team.
This software is licensed under the LGPL. See Gtk2 for a full notice.
perl v5.14.2 2012-05-27 Gtk2::PageSetup(3pm)