Perl - Shell Scripts

Hi,

Looks like u might be able to help me.
I have .pag files that i need to be converted to .txt files.
This has to happen for all the files under all folders and subfolders.

For Eg: Lets consider a folder structure in a unix box : data/year/org1/org2/org3 ....
The script must be able to create the same folder structure in another location and convert all the .pag files to .txt retaining their respective folders.
i.e, if a file "test.pag" in the folder /data/year/ in the unix box , i have to convert tthe test.pag to test.txt and put it in the other location /data/year/.

I hope i make sense.
If you can .. pls do help .. its urgent.

Thanks,
Juno

Hello,

I have similar reqmt like your LineExtracter script. I need to filter the lines based on the search to a new file. That will be much help if you can upload this script.

Thanks,
Amit

how to run a cgi script by using perl.
regards,
senthil,

Hi,

I have a perl script that I need to run either as a bat file or an exe, we are a windows shop and I am trying to get an old report I had that ran on Linix to work here at my new shop that has windows. Is there an easy way to convert the perl script to a bat file or exe?

Hi,

I have an output file like this:
080480-8108000 r-xp 0000 /delsoft/PbdProfiler/SPYGLASS_HOME/obj/check.Linux2
b06fa0-b07040 r-xp 00000 /delsoft/tcl_perl_interface/arch/auto/Tcl/Tcl.so
b06fa0-b07040 r-xp 00000 /delsoft/tcl_perl/arch/auto/Tcl/Tcl.so

and so on....

I need to print only the first column and the last column using Hashes of Arrays.........

So i need help in this regard.

Thanks and Regards,

Shivangi

Hi Please send me the Shell scripts . What ever you have return . I have a good exposure in shell scripting therotically. If U have send the shell scripts then i can work on it and can gain som practical Exposure too

Please do the needful
Venki

Hello,

I need a Perl script to apply a regular expression on a text file and return the match. I use the applescript command do shell script" perl -e . I am new to perl, co these example could be usefull...

Thanks in advance...

Rda

Hi I am Linux administrator from Rajkot Gujrat India

#!/usr/local/bin/perl
$reportname=$ARGV[0];
$count=$ARGV[1];
#print "$reportname$count";
$FILE_NAME="$ENV{AI_SERIAL_LOOKUP}/fwore_file_time.dat";
#print "$FILE_NAME";
open(DAT, $FILE_NAME)|| die("Could not open file!");
@raw_data=<DAT>;
close(DAT);
foreach $record (@raw_data)
{
@test_array=split /,/, $record;
$array_size=@test_array;
$test_string="";
if (lc($reportname) eq lc($test_array[0]))
{
if($count == $test_array[1])
{print"0";}
else
{
$i=2;
while($i <= $array_size)
{
$test_roc_string="$test_roc_string, $test_array[$i]";
$i=$i+1;
}
$test_roc_string = substr($test_roc_string, 2, length($test_roc_string)-6);
if (lc($reportname) eq 'apecs')
{
print"For APCES source, we are expecting 2 files.";
}
else
{
print"For report $reportname, we are expecting files from the following ROCs: $test_roc_string";
}
}
}
}

Hie, I am currently a perl student, I need to write a perl program that analyses text files to obtain statistics on their content, will be grateful if you can assist.

Dear All,

I am a new bie in perl. I have to generate LDIF files after reading a file containing a list of userids of a new admitted batch of a university along with their passwords, uidNUmber And gidNumber. Say the new batch contains 400 students, and the uidNumber starts from the number 2631 onwards. So for each new userid read from the file (it contains the userids and their respective MD5 password), a new LDIF file has to be generated. The LDIF file format for a student is :-



dn: uid=s08-1-5-097,ou=student,dc=nits,dc=ac,dc=in
uid: s08-1-5-097
cn: s08-1-5-097
objectClass: account
objectClass: posixAccount
objectClass: top
objectClass: shadowAccount
userPassword: {crypt}$1$2P6e6UmE$ZewMWmNBQ0ghQ9l/OK0Ft/
loginShell: /bin/bash
uidNumber: 2631
gidNumber: 2631
homeDirectory: /mnt/btech/s08-1-5-097
shadowLastChange:13458
shadowMin: 0
shadowMax: 999999
shadowWarning: 7



1)
Here the lines which should be updated are the first line, where the uid=uid=s08-1-5-097, is to be filled up for every new uid read from the input file.

2)

The second line is to be updated with the uid read from the input file.

3)

The third line is to be updated with the uid for value of cn:



4)

Lines 4-7 are not to be changed for anything. They would remain same as shown above.

5)

The line 8's userPassword has to be updated after the MD5 passoword corresponding to each uid.

6)

Line 6 would remain same for all the files. Nothing to be changed.

7)

uidNumber and gidNumber would be same for a stundent and should be incremented for the nest file.


8)

The home directory should be as: /mnt/btech/value of uid

where the uid's value is read from the input file, for example it is here->s08-1-5-097

for all the files it would be different as uid is different for each student. This would be their home directory.

9) The lines below the line of homedirectory would remain same for all the files.

Please provide me the perl script for that. I am just a new bie and would take weeks to write the script for doing that.

A sample student file of five students is as given below (in the format of uid, MD5 password) as below:-



s08-1-5-093 $1$2P6e6UmE$X71iU1QF6it6oxalIPqMS/
s08-1-5-094 $1$2P6e6UmE$R37ySEfe5JPjRTmdIo2xf.
s08-1-5-095 $1$2P6e6UmE$VKlXe6lSoXr4aWBmuSn6u/
s08-1-5-096 $1$2P6e6UmE$H7Q3Thg4KQKeuAvOsffp8.
s08-1-5-097 $1$2P6e6UmE$ZewMWmNBQ0ghQ9l/OK0Ft/


Now please generate five LDIF files in the format as shown above for each uid after redaing fro the input file of five students :-

Thanks,

JMaan

I have installed active perl (DzSoft Perl Editor)on windows xp
plz tell me how to execute any perl program on command prompt.
& also tell me how to test perl is sucessfully installed or not?

Thanks,
Lalita