Hi all,
This is program to identify and arrange programs(scripts) based on their she-bang values to a folder with the same name.
The parts of mkdir and copy and creating problems.I also doubt the use of hash...maybe some problems in it.
Please help out debugging this.
1: #!/usr/bin/perl -w
2: use File::Find;
3: use File::Copy;
4: %ext=("perl",pl,"bash",sh,"sed","ed","awk","aw");
5: find(\&call,".");
6: sub call{
7: $var=$File::Find::name ;
8: open(fh,$var) or die "Couldn't open file";
9: $line=<fh>;
10: if($line=~/^\#!.*?(\w+)\s+/){$dir=$1;}
11: $p= $ext{$dir};
12: if($var=~/(\w+\.)\w+/)
13: {$new=$1.$p;}
14: else
15: {$new=$var.".".$p;}
16: mkdir $ext unless( -e $ext);
17: $newfile=$dir."/".$new;
18: rename($var,$new);
19: copy("$new","$newfile") or die "$!";
20: close(fh);
21: }
These are the errors
There are some parts that are incompletely done due the errors that are being faced now.
Unquoted string "pl" may clash with future reserved word at ./arrange line 4.
Unquoted string "sh" may clash with future reserved word at ./arrange line 4.
Unquoted string "fh" may clash with future reserved word at ./arrange line 8.
Unquoted string "fh" may clash with future reserved word at ./arrange line 19.
Use of uninitialized value in pattern match (m//) at ./arrange line 10.
Use of uninitialized value in hash element at ./arrange line 11.
Use of uninitialized value in concatenation (.) or string at ./arrange line 13.
Use of uninitialized value in -e at ./arrange line 16.
Use of uninitialized value in mkdir at ./arrange line 16.
Use of uninitialized value in concatenation (.) or string at ./arrange line 17.
Is a directory at ./arrange line 18.
Forgive me if these are due to silly mistakes,as I am just starting with perl.
First thing first, go for the very first error, look at line 4, and see if that dosn't resolve it, if you look closely, you'll notice it is every time you refference that line it spews an error.
Well i converted it to qw and made lots of modifications and ended up with 2 versions of working code(late at night).One using find and copy modules,other using directory handler.I
Quote:
#!/usr/bin/perl -w
use File::Find;
use File::Copy;
%ftypes=qw(perl pl bash sh sed ed awk aw sh sh); #Put extensions associated with each type in hash
find(\&call,"."); #Call subroutine when file found
sub call
{
$var=$File::Find::name ;
if(-f $var) #Read only files
{
open(fh,$var) or die "Couldn't open file";
$line=<fh>;
if($line=~/^\#!.*?(\w+)\s+/){$dir=$1;$ext=$ftypes{$dir};} #Identify type from she-bang and extract extension from hash
if($var=~/(\w+\.)\w*/){$new=$1.$ext;} #In case file already contains extension,extract filename
else{$new=$var.".".$ext;}
mkdir $dir unless( -e $dir); #Make directory by type name
$newfile="./".$dir."/".$new;
$newfile=substr($newfile,2);
rename "$var", "./"."$new"; #Add proper extension by renaming
copy("$new","$newfile") or die "$!"; #Copy to created directory
close(fh);
}
}
And
Quote:
#!/usr/bin/perl
%ftypes=qw(perl pl bash sh sed ed awk aw sh sh); #Put extensions associated with type in hash
opendir dirhndl,"." or die "Cannot open directory:$!";
while($file=readdir(dirhndl))
{
next if $file =~ /^\.\.?$/;
open fh,$file;
$line=<fh>;
if($line=~/^\#!.*?(\w+)\s+/){$dir=$1;$ext=$ftypes{$dir};}#Identify type from she-bang and extract it
if($file=~/(\w+\.)\w*/){$new=$1.$ext;} #In case file already contains extension,extract filename
else{$new=$file.".".$ext;}
mkdir $dir unless( -e $dir); #Make directory by type name
$newfile="./".$dir."/".$new;
$newfile=substr($newfile,2);
rename "$file", "$newfile"; #Add proper extension and move to folder
close(fh);
}
closedir(dirhndl);
If there are any suggestions or bugs,please do tell,it would really help as I am learning Perl.
By using this code how can we get the stars in inverted positions?
str="*"
for i in 1 2 3 4 5
do
echo "$str"
str="$str *"
done
The output should be like this
* * * * *
* * * *
* * *
* *
*
Please use CODE tags as required by forum rules!... (5 Replies)
I have a file with user activity and need to display only the start and end timestamp of the activity. I don't know how can we write an logic for this please help me in a bettr way to work on it
User Activity_log
-----------------------------------
... (5 Replies)
Hi,
Please give a solution...
Current File
200101701 A 5 B 283 D 222
200085506 A 5 B 6 C 304
200081406 A 5
200101784 D 1111Desired Output
200101701 A 0005 B 0283 * * D 222 ... (4 Replies)
Hello All,
Please find attached input and output files. I want to write a shell script to achieve this. I tried using awk but not getting how to do this as I am new to shell programming.
Thanks (4 Replies)
Hi all,
I have input files in some directory as:
$ ls -ltr
-rw-r--r-- 1 emily us_cms 101614219 Oct 8 15:47 vgtree_197_0_7pV.root
-rw-r--r-- 1 emily us_cms 101348458 Oct 8 16:43 vgtree_518_0_LHB.root
-rw-r--r-- 1 emily us_cms 101386298 Oct 8 16:50 vgtree_291_0_cWd.root
-rw-r--r-- 1... (11 Replies)
Hi there!
Can this be done with AWK? Several text files (file1, file2, etc) with different number of lines. Need to append each file to a Reference File (ReFile), and match each line of file1, file2 etc to the closest value in ReFile. Empty cells must be filled with NA, or 0. The number of lines... (2 Replies)
Hello Guys,
I have around 100 hosts setup as alias in my profile for easy sshing.
alias ada='ssh -Y username@da.domain.com'
alias ast='ssh -Y username@terix.domain.com'
alias bb1='ssh -X username@ggserver.ns.domain.com'
.
.
.
.
I now would like to use sshmenu software in which... (4 Replies)
Hello,
I am new to Linux, and I am learning slowly but for surely. I am trying to currently figure out how to go about re-arranging lines of text of a *.txt file... Like for example:
Say pool.txt has 20 lines of text, and the last 5 lines of text I want to move to the top of the *.txt file... (2 Replies)
Dears,
I have the below data,
sss-aaaaaa
111211 222222 33333 22222 1163111
sss-vvvvvv
111311 224522 335633 24322 111511
sss-cccccc
111221 224522 333333 24322 111511
sss-dddddd
111211 222222 33333 22345222 113111
I want to make them like
... (7 Replies)
