I want to check access rights permissions not for 'user', not for 'group', but for 'others'.
I want to do it by system command in which i want to use 'ls -l' and 'awk' command.
I have written the following program :
#!/usr/bin/local/perl
#include <stdlib.h>
system ("ls -l | awk '/^-......r../ {print $9 " is readable for others}' ");
system ("ls -l | awk '/^-.......w.
Hi all,
I have a simple script to check the CPU, Swap Memory and Hard Disk. But I can auto assign password in the script to automatic run it in crontab.
Quote:
#!
Hi Guys,
I'm a newb at shell scripting and successfully attempted a small disk space script (victory!!) but i'm wondering whether it actually takes into consideration KB,MB,GB.
Hi,
Below is starting entry of my script
#!/bin/ksh
Usage()
{
print "Usage: $0 ID OPTION SERVER"
print "<br>Where :"
print "<br>Enter your ID into PARAM1, OPTION in the PARAM2 and SERVER in the PARAM3 field"
print "<br>ID should be a valid ID"
print "<br>OPTION should be either BOUNCE or STATUS"
print &q
Hi,
I have Below script which converts csv file to html succesfully.but the visiblity is simple in black n white. I want to have better visibilty of each columns in different colours(like green).As it is a Database report suppose some tablespace available space is less than 20% then it should come up in red colour.If the available space is above 20% then it should come up in green.
I am using a for loop to copy files from say DIR1 and DIR2 to DIR3.I have to check whether files are copied from DIR1 and DIR2 and print the respective message.
@path=("$DIR1","$DIR2");
foreach (@path) {
$rc=system("cp $_/*xml $DIR3");
if ($rc == 0)
{
print "Files were copied successfully from $_\n";
}
else
{
print "Files were
Hi Folks,
I have 2 perl scripts and I need to execute 2nd perl script from the 1st perl script in WINDOWS.
In the 1st perl script that I had, I am calling the 2nd script
main.pl
===========
print "This is my main script\n";
`perl C:\\Users\\sripathg\\Desktop\\scripts\\hi.pl`;
hi.pl ( this script I am calling from the firstperlscript.pl)
====
#!perl -w
print "hii Gir
Hi all,
I am new to PERL scripts, and i have made my first script which i am posting here.
This math tool performs all basic arithmatic functions.
Code:
#!/usr/bin/perl
print "\t----------Welcome to Maths Tool-----------\n";
do
{
print "Enter your choice :";
print "\n\t1)Addition\n\t2)Subtraction\n\t3)Multiplication\n\t4)division\n";
$a = <>;
if ($a ==
Hi,
i want to create perl script to telnet and print the output.
Email this page
