Best FREE Perl installation for Windows??
I need to get back to an installed Windows Perl environment. What's the best free option available out there, that everyone would recommend? I can do installs without too much issues, so installer doesn't matter, but ease of use does. Thanks, Robert --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.788 / Virus Database: 533 - Release Date: 11/1/2004 -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Possible OT: Site Spiders?
I need a site spider to stay in the same domain, but follow all links (saving all files encountered) for saving an entire business site. I have been looking around but have not found the one I am looking for, can anyone help? It can be PERL or Windows or PHP, it just needs to be locked to the same domain Thanks, Robert -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
RE: Script Kiddie issues
Nah, because the only ones who receive the file are those attempting to do harm to my system. Granted I could make it go to a warning page, which after a few seconds dumps them to the other page, thereby giving them a warning before I fire the shot, just like a trespasser in my house. Do I shoot first when they are in MY house in the middle of the night, or do I give them enough time to shoot me? They are trespassing on my system. Normal use of the system does NOT require access to cmd.exe or other files they are looking for to use to exploit the system. Normal use laws apply, and you CAN and folks DO take steps to secure their system from others. Legally I checked with lawyers and the ones in my area say as long as I keep a log of the accesses I am fine. I took this step after sending over 200 messages to ISPs to halt their users and receiving no response to any of the inquiries even though I provided the ISPs with log files and everything. I did the same with ISPs with spammers and open relays. Multiple emails to their main offices and local branches with the spammers email addresses, full headers, and no word back. If the ISP was not even willing to answer multiple emails they were sent another email with how to contact me directly and then their entire domain was added to the server kill file. Cut down on the spam in MY inbox. -Original Message- From: Michael C. Davis [mailto:[EMAIL PROTECTED] Sent: Saturday, February 07, 2004 8:30 AM To: [EMAIL PROTECTED] Subject: Re: Script Kiddie issues What a great idea. You'll make lots of new friends in the Big House. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
RE: Script Kiddie issues
Who in their right mind would walk into a courthouse and tell the judge they were trying to break into a computer system (which in and of itself holds MANY penalties because information on a company system is invaluable per previous court cases) and say that they lost data on their system when their attack was rebuked? The person would get laughed out of court, if not at the submittal level then when the judge enters the chamber. At the point the guy admits to trying to hack into the system the cops can come forward and throw him in jail, the DA would have a confession on record, and Butch would have a new wife in cell block D. But it is all semantics. If they run an AV they are fine, just annoyed. If they don't run an AV then if they are smart they will catch it and be fine. If they lose it, well how can they prove where they were, the log files are gone and unless they are keeping paper records (even better for the law to prosecute them with) then they have even no way of proving anything. -Original Message- From: Michael C. Davis [mailto:[EMAIL PROTECTED] Sent: Saturday, February 07, 2004 8:30 AM To: [EMAIL PROTECTED] Subject: Re: Script Kiddie issues What a great idea. You'll make lots of new friends in the Big House. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Make this into a script to parse?
I'm back to dealing with the main issue of a badly formatted file being brought down from an archaic system and needing to be cleaned up before being passed to another user or a database table. I have the code below, which pulls the whole file in and parse it line by line. That problem is still that when the stuff is done parsing the file, the file still has a ton of white spaces left in it. What I would like to do is when I first open the file (another piece of this massive script) is tell it to just run a sub program on each piece that does the same thing as the stuff below, unfortunately I am not sure of the way to do this. This piece I DO have: sub cleanup{ use strict; my $file = info/bad.sql; my $newfile = info/inventory.sql; my $line; open (OLDFILE, $file); open (NEWFILE, $newfile); while ($line = OLDFILE) { $line =~ s/^ //mg; $line =~ s/ $//mg; $line =~ s/\t/|/mg; $line =~ s/\s+/ /mg; $line =~ s/^\s*//mg; $line =~ s/\s*$//mg; $line =~ s/\s*$//mg; ### The following lines mod the files to reflect inches and feet $line =~ s/(?=\d)/in. /mg; $line =~ s/(?=\d)'/ft. /mg; $line =~ s/^\s+//mg; $line =~ s/\s+$//mg; # $line =~ s/\s*\|\s*//mg; ### $line =~ s/ |/|/mg; ### $line =~ s/| /|/mg; print NEWFILE $line\n; } close OLDFILE; close NEWFILE; print $newfile has now been created\n; } The first pass of the code which piece of the array of data into another location further back in the file: sub MySQL_id_data { $database_file = info/salesa1; open(INF,$database_file) or dienice(Can't open $database_file: $! \n); @grok = INF; close(INF); $file1 = info/salesa1-data; open (FILE, $file1) || die Can't write to $file1 : error $!\n; $inv = 1; foreach $i (@grok) { chomp($i); ($item_num,$item_desc,$b1,$b2,$b3,$b4,$cc,$vn,$qoh,$qc,$qor,$bc,$sc,$yp) = split(/\|/,$i); print FILE $inv|$item_num|$item_desc|$b1|$b2|$b3|$b4|$cc|$vn|$qoh|$qc|$qor|$bc|$it em_num|$sc|$yp\n; $inv++; } close FILE; } HELP!! Thanks, Robert -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
RE: Make this into a script to parse?
I tried the my @fields and I did not get it to work, probably because my coding skills have not improved enough lately to be worthy of perl. Thank goodness I never said I had perfect code, because I would definitely be lying. I attached 2 files, one the beginning data, the other the .sql file that I load into MySQL database. The files are about 3000 lines before and after so I cut out the first 30 lines and put them in the files to the list. What I need to figure out is how to make a sub call that when I pull in the file will remove all extraneous white space. Something I can copy into another Perl program to parse another set of files (ARGH!). I've learned not to tell the bosses I can write a script to handle the errors of the salesmen. I currently use a back piece of PHP coding to handle the extra spaces in the pages that use the data, but for another project I can't use that work-around. I know I can do something along the lines of: (from an HTML generating page with a sort) foreach $i (sort ByName @grok) { chomp($i); ($type,$description,$parts,$numb) = split(/\|/,$i); print INFO2; trtd$type/tdtd$description/tdtd$parts/tdtd$numb/td/tr INFO2 } The sub program: sub ByName { @a = split(/\|/,$a); @b = split(/\|/,$b); $a[1] cmp $b[1]; } But I am still not sure how to make the $i go through, and it is probably something simple I am missing. Thanks!! Robert 1|AA-1202|12in. X10.75 FOIL SHEETS 12/200|70.96|46.40|45.24|44.13|246|3|55.000|.000|.000|A|AA-1202 2|AA-1205|12in. x10in. FOIL POPUP SHEETS 6/500|96.61|63.17|61.59|60.09|246|3|19.000|.000|.000|B|AA-1205 3|AA-1215RO|12in. X1000ft. ROYALE FOIL STD 1|25.16|15.84|15.46|15.09|245|3|56.000|5.000|.000|B|AA-1215RO 4|AA-1217SE|12in. X1000 ALUMINUM FOIL STD 1|30.18|19.73|19.24|18.77|245|3|36.000|.000|.000|B|AA-1217SE 5|AA-1251|12in. X500 ALUMINUM FOIL (HVY) EA|26.25|17.17|16.74|16.33|245|3|34.000|.000|.000|B|AA-1251 6|AA-1255RO|12in. X500ft. ROYALE FOIL STD 1/CS|15.96|10.05|9.81|9.58|245|3|30.000|.000|.000|C|AA-1255RO 7|AA-1817SE|18in. X1000 STD.DUTY FOIL-RL 1|42.82|28.00|27.30|26.63|245|3|17.000|.000|.000|C|AA-1817SE 8|AA-1825|18in. X25ft. HEAVY DUTY-RL 12|28.29|27.27|26.79|26.17|245|3|6.000|.000|.000|C|AA-1825 9|AA-1851SE|18in. X500 ALUMINUM FOIL (HVY) 1|32.67|21.36|20.83|20.32|245|3|116.000|4.000|.000|A|AA-1851SE 10|AA-1857SE|18in. X500in. ALUMINUM FOIL STD 1|24.41|15.96|15.56|15.18|245|3|67.000|.000|.000|B|AA-1857SE 11|AA-455-44|1/2 AL.STEAM T/PAN-MEDIUM 100|40.59|27.24|26.54|25.88|212|3|22.000|.000|.000|B|AA-455-44 12|AA-456-44|1/2 AL.STEAM T/PAN-DEEP 100|34.16|24.54|23.86|23.38|212|3|97.000|1.000|.000|A|AA-456-44 13|AA-457-70|FULL AL.STEAM T/PAN-MEDIUM 50|53.57|36.92|35.95|35.03|212|3|9.000|.000|.000|B|AA-457-70 14|AA-458-40|1/2 AL.STEAM T/PAN-SHALLOW 100|34.49|22.99|22.41|21.85|212|3|11.000|.000|.000|C|AA-458-40 15|AA-459-70|FULL AL.STEAM T/PAN-SHALLOW 50|53.02|36.30|35.35|34.45|212|3|8.000|1.000|.000|C|AA-459-70 16|AA-460-70|FULL AL.STEAM T/PAN-DEEP 50|44.49|30.25|29.47|28.72|212|3|116.000|2.000|.000|A|AA-460-70 17|AA-516430WLR|***9ft. RND CONT W/FOIL BD LD 250|57.80|49.13|45.35|42.11|77|3|8.000|.000|.000|D|AA-516430WLR 18|AA-552-40|ASHTRAY ROUND SILVER 1000|77.65|50.77|49.50|48.29|2|3|15.000|.000|.000|B|AA-552-40 19|AA-554-40|FULL AL.STEAM T/PAN-FOIL COV50|27.45|17.95|17.50|17.07|212|3|42.000|2.000|.000|A|AA-554-40 20|AA-555-30|1/2 AL.STEAM T/PAN-FOIL COV100|14.44|13.75|13.42|12.94|212|3|23.000|1.000|.000|B|AA-555-30 21|AA-688-64A|19in. AL.ROAST.PAN-OVAL-GIANTG50|51.24|51.24|51.24|51.24|212|3|15.000|.000|.000|C|AA-688-64A 22|AA-9102|9X10.75 FOIL SHEETS 12/200|51.71|33.81|32.96|32.16|246|3|17.000|.000|.000|B|AA-9102 23|AA-9105|9X10.75 FOIL SHEETS 6/500|59.47|38.88|37.91|36.99|246|3|94.000|5.000|.000|A|AA-9105 24|AA-A12DL|12in. DOME CLEAR LID-A13A16 25|13.73|9.72|9.46|9.21|41|3|3.000|.000|.000|C|AA-A12DL 25|AA-A12FT|12in. ALUMINUM FLAT TRAY 25|15.51|10.99|10.69|10.41|41|3|5.000|.000|.000|C|AA-A12FT 26|AA-A12LS|12in. ALUMINUM 5-CMPT.TRAY 25|15.51|10.99|10.69|10.41|41|3|15.000|.000|.000|C|AA-A12LS 27|AA-A16DL|16in. DOME CLEAR LID 25|20.76|14.71|14.31|13.93|41|3|11.000|1.000|.000|B|AA-A16DL 28|AA-A16FT|16in. ALUMINUM FLAT TRAY 25|25.69|18.19|17.70|17.24|41|3|10.000|1.000|.000|B|AA-A16FT 29|AA-A16LS|16in. ALUMINUM 5-CMPT.TRAY 25|25.69|18.19|17.70|17.24|41|3|8.000|.000|.000|C|AA-A16LS 30|AA-A18DL|18in. DOME CLEAR LID 25|29.84|21.14|20.57|20.03|41|3|7.000|1.000|.000|C|AA-A18DL AA-1202 |12X10.75 FOIL SHEETS 12/200| 70.96 | 46.40 | 45.24 | 44.13 |UF|ALCAN |55.000 | .000 | .000 |A AA-1205 |12x10FOIL POPUP SHEETS 6/500| 96.61 | 63.17 | 61.59 | 60.09 |UF|ALCAN |19.000 | .000 | .000 |B AA-1215RO |12X1000' ROYALE FOIL STD1| 25.16 | 15.84 | 15.46 | 15.09 |U5|ALCAN |56.000 | 5.000 | .000 |B AA-1217SE |12X1000 ALUMINUM FOIL STD 1| 30.18 | 19.73 |
Upload files and directories (MORE INFO)
I am transferring the data from a Redhat 9 machine to an IIS server run by my ISP. I just tried running rsync and it was not responsive (left it on overnight in fact to give it time to try). :( Thanks! Robert -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response
Upload files and directories
I am in dire need of a script that will upload everything from one server to another one that I can cron. Right now I have to do it by hand and with more and more updates being done to the site, I need a way to do it seamlessly. One that checks dates against each other would be cool too. i.e.: if the web server date is the same as the design server, no uploading that file. Does anyone have one or know where I can find one? Even multiple ones that I have to piece-meal or get the logic from and rewrite myself would be good to. I have googled and am starting to go through the first page of results but I was hoping someone here might already have one or might have come across one somewhere. Thanks!! Robert -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/ http://learn.perl.org/first-response