Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl Query
Top Forums Programming Perl Query Post 302765919 by gsiva on Monday 4th of February 2013 01:43:57 AM
Old 02-04-2013
Hi Exilir,

Same way, for the files under the directory is not getting the output properly.

Quote:
$mode = sprintf "%04o", (stat '/etc/rc.d/[rc]*.d') [2] & 07777;
if($mode eq "0755")
{
print "GOOD: AD.1.8.18: The file /etc/rc.d/[rc]*.d exists and had permission 0755\n\n";
}
else
{
print "BAD: AD.1.8.18: The file /etc/rc.d/[rc]*.d exists and does not have permission 0755\n\n";
}
print `ls -ld /etc/rc.d/[rc]*.d`;
print "\n";
OUTPUT:

BAD: AD.1.8.18: The file /etc/rc.d/[rc]*.d exists and does not have permission 0755

drwxr-xr-x 2 root root 4096 Oct 24 15:55 /etc/rc.d/rc0.d
drwxr-xr-x 2 root root 4096 Oct 24 15:55 /etc/rc.d/rc1.d
drwxr-xr-x 2 root root 4096 Jan 14 13:24 /etc/rc.d/rc2.d
drwxr-xr-x 2 root root 4096 Jan 14 13:24 /etc/rc.d/rc3.d
drwxr-xr-x 2 root root 4096 Oct 24 15:55 /etc/rc.d/rc4.d
drwxr-xr-x 2 root root 4096 Jan 14 13:24 /etc/rc.d/rc5.d
drwxr-xr-x 2 root root 4096 Oct 24 15:55 /etc/rc.d/rc6.d

The output should be GOOD.
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Incorrect SQL query in perl

I the the following perl script, however it does not return anything. Did i form my syantax wrongly? $sth=$dbh->prepare("select a.rowid,a.* from Table1 a where a.field1 = \'$Indicator1\' and a.schedule = \'$Indicator2\' and a.lastdate <= sysdate"); $sth->execute() ... (1 Reply)
Discussion started by: new2ss
1 Replies

2. Shell Programming and Scripting

Perl CGI Query

Hi All, This is quite a high level question so I appologise as if it sounds a bit woolly! I'm running a script via apache's cgi-bin that calls another Perl script (from a browser): http://192.168.000.000/cgi-bin/run_script.pl?SCRIPT=test.pl&text=RANDOM+TEXT&INPUT1=444444444444 This... (4 Replies)
Discussion started by: pondlife
4 Replies

3. Shell Programming and Scripting

perl query

a file test.dat has the following David Veterinarian John Orthopedist Jeff Dentist perl -p -e "s/\s*(\w+).*/$1/;" test.dat ......will print David Jonh Jeff how does the part in double quotes work out.... (1 Reply)
Discussion started by: bishweshwar
1 Replies

4. UNIX for Dummies Questions & Answers

Query in perl

can any1 give me line by line explanation for the following perl script as i dunno perl .. n i have searched in google .. but still thn i wanna confirm my findings fro perl experts :mad: perl -e 'while (<>) { print; $num = 2 if /fail_halt/i; $num = 1 if (/failure/i && ($num < 1)); }... (2 Replies)
Discussion started by: Dana Evans
2 Replies

5. UNIX and Linux Applications

Perl - PostGreSql query

Guys, I guess, I posted something in the wrong forum. Here it is - https://www.unix.com/shell-programming-scripting/67395-perl-postgrepsql-question.html Can you please help me with this? Regards, garric (0 Replies)
Discussion started by: garric
0 Replies

6. Shell Programming and Scripting

Perl Query Regarding format

Hello people. I have got the following script QM=ARGV; open (CHS_OUT, "echo 'DISPLAY QSTATUS(SYSTEM.CLUSTER.MY.QUEUE) all'|runmqsc $qm|"); while (<CHS_OUT>) { if ( /QUEUE\(/ ) { $QueueName = ValueParser("QUEUE", 6); } if ( /IPPROCS\(/ ) { $InpProcs = ValueParser("IPPROCS", 8); #print... (3 Replies)
Discussion started by: King Nothing
3 Replies

7. Shell Programming and Scripting

Perl - CAPTURE query

When i run script with option 1 it works, however if I assign path to variable $tmpfile and try to use that it writes to $tmpfile and not /var/tmp/abc.tmp, what am I missing? 1. open (CAPTURE, '>>tmpfile'); print CAPTURE "$T1,$T2,$T3"; close (CAPTURE); 2. my $tmpfile='/var/tmp/abc.tmp';... (10 Replies)
Discussion started by: gefa
10 Replies

8. Shell Programming and Scripting

perl- oracle sql query

Hi, I am new to perl.How to query oracle database with perl??? Thanks (1 Reply)
Discussion started by: tdev457
1 Replies

9. Shell Programming and Scripting

Formating of query variable in perl

Hi , I am facing error in perl when I assign a below query in a varibale $query because of new line charchters $query= SELECT XYZ , ABC , c2 , c3 , c4 FROM t1 how can i get rid of new line charchters with out changing the... (2 Replies)
Discussion started by: gvk25
2 Replies

10. Shell Programming and Scripting

From perl program query is not executed.

I have tried executing one particular query through perl.But I am unable to get the result. When I tried to execute the sysdate query its working when I executed my perl code. The below query doesn't work. QUERY 1:my $sql ="select name from tab where rownum <6"; Received ora error... (23 Replies)
Discussion started by: ramkumar15
23 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)
All times are GMT -4. The time now is 07:58 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy