windows - Perl script to download a file and check filetype -


what want simple: 1) download file hard-coded url (it stay same) 2) check if file pdf (i thought best check magic number %pdf) 3) if so, rename file , move folder xy||if not, rename accordingly.

note: required run on windows 7 system.

here code:

#!/usr/bin/perl use warnings; use strict; use lwp::simple; use posix qw( strftime ); use file::copy; use file::type;  $date = strftime("%m/%d/%y", localtime); $url  = "http://www.oracle.com/technetwork/database/options"           ."/advanced-analytics/r-enterprise/ore-reference-manual-1882822.pdf";   $dlfile = "test.pdf"; $resp = ''; $srcdir = "c:\\pdfscripthome"; $dest = "c:\\pdfdump"; $old = "$srcdir/$dlfile"; $resp = getstore( $url, $dlfile );  sub checkfiletype {     $chkfile="$srcdir//test.pdf";     $ft = file::type->new();     $file_type = $ft->mime_type($chkfile);      if ( $file_type eq 'application/pdf' ) {         move( $old, $dest ) or die "move $old -> $dest failed: $!";     }     else {         rename ("//$srcdir/test.pdf", "//$srcdir/notavalidpdffile.pdf" )         || die ("error in renaming");     } }  sub main{     &checkfiletype(); }  &main;

what happens when try execute, nothing happens. strangely, when comment

use file::type;

out, downloads file (of course check doesn't happen).

i assume there error somewhere in sub checkfiletype { } can't see it.

i executed perl program (without changes) on windows 7 strawberry perl v5.20.2.

i tempted suggest several changes, decided instead offer 1 simple change cause program complete successfully.

in call mime_type() on line 25, replace argument $chkfile $dlfile. cause mime_type() file stored during call getstore() on line 16, $dlfile passed argument specifying filename.

line 25 (original):

my $file_type = $ft->mime_type($chkfile);

line 25 (incorporating suggested change):

my $file_type = $ft->mime_type($dlfile);

without changes, perl program first stores downloaded pdf file relative user's current working directory filename .\test.pdf, later expects find pdf file using absolute path c:\pdfscripthome\test.pdf.

if user's current working directory c:\pdfscripthome program succeeds. in cases user's current working directory not c:\pdfscripthome, program fails because argument passed in call mime_type() contains absolute path c:\pdfscripthome\test.pdf.


Comments

Post a Comment

Popular posts from this blog

php - failed to open stream: HTTP request failed! HTTP/1.0 400 Bad Request -

this code i'm using find latitude , longitude of place: function coords($address){ echo $url="http://maps.googleapis.com/maps/api/geocode/json?address=".$address; $json = file_get_contents(urlencode($url)); $data = json_decode($json, true); print_r($data['results'][0]['geometry']['location']['lat']); print_r($data['results'][0]['geometry']['location']['lng']); } however returns warning: failed open stream: http request failed! http/1.0 400 bad request if use above code in simple procedure works fine not in function. note: have tried curl_init()... method produced same result? instead of encoding whole url encode address part. following code work fine $add='jamshoro phase 2'; $url="http://maps.googleapis.com/maps/api/geocode/json?address=".urlencode($add); $json = file_get_contents($url); $data = json_decode($json, true); print_r($data['r
Read more

java - How to filter a backspace keyboard input -

i have code gives message when key number pressed: txtvalueofclause.addeventfilter(keyevent.key_typed, new eventhandler<keyevent>() { @override public void handle(keyevent t) { char ar[] = t.getcharacter().tochararray(); char ch = ar[t.getcharacter().tochararray().length - 1]; if (!(ch >= '0' && ch <= '9')) { system.out.println("the char entered not number"); t.consume(); } } }); now if press on wrong button , press backspace remove it, error message. how can add backspace input if statement? i have found answer: txtvalueofclause.addeventfilter(keyevent.key_typed, new eventhandler<keyevent>() { @override public void handle(keyevent t) { char ar[] = t.getcharacter().tochararray(); char ch = ar[t.getcharacter().tochar
Read more

java - Show Soft Keyboard when EditText Appears -

i have code in android app, alert dialog , keyboard, , when dialog shown want keyboard appear. not , not sure why? here code: final alertdialog.builder alert = new alertdialog.builder(this); alert.settitle("title"); alert.setmessage("message"); final edittext input = new edittext(this); input.setinputtype(inputtype.type_class_number); alert.setview(input); input.setonfocuschangelistener(new view.onfocuschangelistener() { @override public void onfocuschange(view v, boolean hasfocus) { if (hasfocus) { log.i(tag, "in focus"); inputmethodmanager inputmethodmanager = (inputmethodmanager) getsystemservice(context.input_method_service); inputmethodmanager.showsoftinput(input, inputmethodmanager.show_implicit); } } }); but keyboard not appear though edit text in focus, , tell appear why, doesn't come up? thanks in advance.
Read more