#!D:\win32app\Perl\bin\perl.exe
use CGI;
my $q = new CGI;
$myname = "Shelby";
print "Content-type: text/html\n\n";
print qq (
<html><body>
"This is my HTML", $myname
</body></html>
);
I am looking into monitory all email coming into my server and was wondering if anyone know of any software or scripts that will monitor a directory and automaticly copy and new files to a backup directory for archiving.
I am using a Post.Office system and checking mail with Eudora. The...
I want to start a script from another script where I will be able to send data from the 1st script to the 2nd. The 2nd will take that date and process it and give a result back to the 1st.
The point is to run the 2nd on a system or exec command so that if a user exits their broswer then the...
open (FILENAME, "files/file.db");
$stuph = <FILENAME>; #first line of file
close (FILENAME);
Just like opening a regular file but your specify it in another directory.
@tape = `vmquery -pn NT_Offsite_Pool`;
if ($tape[6] eq "TLD - Tape Library DLT (8)") {
print $tape[1];
}
OK so you made your array and then told it to run if $tape[6] is equal to your string. That only tells it to run once.
Are your trying to do this?
foreach $value (@tape){...
to set the cookie to something else simple set the cookie again. it will overright the cookie. to get rid of a cookie just set the timeout to the current time. so once it gets the cookie the expiration is over and it will die.
This should work I haven't messed with cookies in a long while.
To continue on this subject is there a way to keep other programs from accesing the file till you close the file? I am using a discusware board and am writing to the userlist but if the board accesses the user database it gets stopped in the middle. I was using flock but until reading the...
Set up hardware profiles. Set one for work and one for home or whatever it would be. When the computer starts up it will prompt you for one or the other. Just select which profile and set the TCP/IP settings. When you switch between them the settings will change as well.
#!D:\win32app\Perl\bin\perl.exe
print "Content-type: text/html\n\n";
($SEC,$MIN,$HOUR,$MDAY,$MON,$YEAR,$WDAY,$YDAY,$ISDST)=LOCALtime(time);
print "seconds = $SEC<p>\n\n"
print "minutes = $MIN<p>\n\n"
# use the above command for each of the outputs
You don't...
($SEC,$MIN,$HOUR,$MDAY,$MON,$YEAR,$WDAY,$YDAY,$ISDST)=LOCALtime(time);
insert this code into a perl script and print the output.
print LOCALtime(time);
Then you will be able to see what the output is. Then try printing the following.
print...
line breaks are accomplished with a "\n" If you were to just put in a carrage return you would get errors. Double space would be "\n\n" Hope that helps.
Shelby
@array = ("one", "two", "three");
$removed = pop(@array);
# "$removed" is now equal to "three"
# but the array is equatl to ("one", "two")
# to replace it use the following code
push(@array, $removed);
# the array...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.