Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: problem in mkdir

by quester (Vicar)
on Dec 02, 2011 at 09:36 UTC ( #941277=note: print w/ replies, xml ) Need Help??


in reply to problem in mkdir

I can see a few things that seem odd:

my(@folder_name,$temp1,$temp2); ... @folder_name=<ONE>; ... push(my @folder_name,<TWO>); ... $temp1 = pop(@folder_name); $temp2 = pop(@folder_name);

If you check your web server logs, or if you check your script with "perl -c scriptname.pl" you will see a warning

"my" variable @a masks earlier declaration in same scope

The second push declares a second array @folder_name which hides the first array of that name; that makes $temp2 undefined later.

Once that is fixed, if you read the definitions of the push and pop functions carefully, you will notice that $temp1 gets the contents of the last line in file TWO if file TWO is not empty, otherwise it gets the last line in file ONE. $temp2 gets the contents of the next to last line in file TWO if there if there are two lines in file TWO, the last line in file ONE if there is one line in file TWO, and the next to last line in file ONE if file TWO is empty. In the simple case where both files are one line long, $temp1 gets the file TWO contents and $temp2 get file ONE's. Somehow I doubt that is what you had intended.

If you wanted a single line in $temp1 from file ONE, and wanted a single line in $temp2 from file TWO, you could remove the unnecessary array @folder_name and just:

my(@folder_name,$temp1,$temp2); ... $temp1 = <ONE>; ... $temp2 = <TWO>;
You should also check the value returned from mkdir, since it may indicate an error. The easiest way is with the "... or die" idiom:
mkdir "/var/www/html/piRNA_html/UNAFold/output/$temp2",0777 or die "Cannot make directory /var/www/html/piRNA_html/UNAFold/outpu +t/$temp2, error was $!";


Comment on Re: problem in mkdir
Select or Download Code
Re^2: problem in mkdir
by MVRS (Acolyte) on Dec 02, 2011 at 09:53 UTC
    thnks quester , i changed as u said, but its still not creating directory , in that

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://941277]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (6)
As of 2014-11-29 06:33 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (203 votes), past polls