Hello,,I have a very small script that contains these lines; and it works perfectly; however I need to use Perl now as I will need to feel variables from a MySQL table into this; to it would be nice to start by converting this first...
Code:
find / -perm 777 \( -type f -o -type d \) -exec ls -lid {} \; | while read a b c d e f g h i j
do
type=`echo $b | awk '{print substr($0,1,1)}'`
case $type in
-) type="f"
fordname=`basename $j`
pathname=`dirname $j`;;
d) fordname=`basename $j`
pathname=`dirname $j`;;
esac
rights=`echo $b | awk '{print substr($0,2,9)}'`
#write to file: hostname,type('f' or 'd'),file or directory name,pathname(only if type is 'f'),rights,user,group,size,mmm dd hh:mm(or yyyy)
echo "`hostname`|$type|$fordname|$pathname|$rights|$d|$e|$f|$g $h $i|$dd|$a\r"
done >/tmp/777permlst`hostname`.psv
perl script:
my $logdir = '/smp/dyn/logfiles/fsm/mp/mp';
$logdir = $logdir ."/mp${toDate}*";
i tried to make it..as below .. but not working ..
date +%m%d%y
logdir = /smp/dyn/logfiles/fsm/mp/mp
logdir=$logdir/mp"$date"
but it was not working.....
can someone please help me out in... (1 Reply)
Hi all experts,
I am new to Unix. Could you please help me to convert the following PERL script to SHELL? I will appreciate.
#!/bin/sh
use strict;
use warnings;
my $robot_num = 0;
my %rob_tapes;
foreach (`/usr/openv/volmgr/bin/vmquery -l -rn $robot_num`)
{ $rob_tapes{(split)} = 1; }... (6 Replies)
I need a shell script which will convert the given string within a <title> tag to Capitalize case.
E.g "<title>hi man: check this out</title>"
to "<title>Hi Man: Check This Out</title>" (11 Replies)
This is about how to Monitoring folder for new files using shell script
im doing a project using smsserver tools 3. i have used a perl script
to handle incoming messages. the content of each message must be
directed to a java program. this program generates the answer to reply
to the user... (2 Replies)
Hi all,
Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM.
Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers.
At the moment am... (3 Replies)
Hi is there a way that i can convert this simple perl program into shell script
#!usr/bin/perl -w
use strict;
use warnings;
open INPUTFILE, "uniqprobecoordinates.out" || die "canot open the file $!";
open OUTPUTFILE, ">", "1_4reads.out";
while(<INPUTFILE>)
{
chomp;
... (3 Replies)
Hi
I am a novice in scripting .Please help me converting perl script into shell
my ($ref) = shift;
my $id;
my $cnt=0;
my $first =0;
my $filename ;
my $filename1 ;
FOREACH:foreach my $r (qw(RET LSH PDM )) {
$ref->{$cnt}->{num_errors} =0;
$ref->{$cnt}->{num_warnings} =0;... (2 Replies)
HI All, I am new in shell scripting ,can any one please help me to convert this scripts from Perl to Shell.
Thank in advance.
$customer=$ARGV;
$rows=`hadoop fs -ls /ncip/$customer/|wc -l`;
if($rows==3){
print "$customer directory exists , cleaning up ! \n";
`hadoop fs -rm... (1 Reply)
Discussion started by: Atul301
1 Replies
LEARN ABOUT DEBIAN
update-java-alternatives
UPDATE-JAVA-ALTERNATIVES(8) System Manager's Manual UPDATE-JAVA-ALTERNATIVES(8)NAME
update-java-alternatives - update alternatives for jre/sdk installations
SYNOPSIS
update-java-alternatives [--jre] [--plugin] [-t|--test|-v|--verbose]
-l|--list [<jname>]
-s|--set <jname>
-a|--auto
-h|-?|--help
DESCRIPTION
update-java-alternatives updates all alternatives belonging to one runtime or development kit for the Java language. A package does pro-
vide these information of it's alternatives in /usr/lib/jvm/.<jname>.jinfo.
OPTIONS
-l|--list [<jname>]
List all installed packages (or just <jname>) providing information to set a bunch of java alternatives. Verbose output shows each
alternative provided by the packages.
-a|--auto
Switch all alternatives of registered jre/sdk installations to automatic mode.
-s|--set <jname>
Set all alternatives of the registered jre/sdk installation to the program path provided by the <jname> installation.
--jre Limit the actions to alternatives belong to a runtime environment, not a development kit.
--jre-headless
Limit the actions to alternatives belong to the headless part of a runtime environment.
--plugin
Limit the actions to alternatives providing browser plugins.
-h|--help
Display a help message.
-t|--test
Don't actually do anything, just say what would be done. The implementation status of this option is the same as for update-alter-
natives (not implemented).
-v|--verbose
Verbose output.
FILES
/usr/lib/jvm/.*.jinfo
A text file describing a jre/sdk installation. Consists of some variables of the form <var>=<value> and a list of alternatives of
the form jre|jdk <name> <path>.
AUTHOR
update-java-alternatives and this manual page was written by Matthias Klose <doko@ubuntu.com>.
May 2006 UPDATE-JAVA-ALTERNATIVES(8)