Re: downloading a file on a page with javascript

Where did you find the URL? If I point my mouse on the file and save the link, I get

https://storage.googleapis.com/google-code-archive-downloads/v2/code.g
+oogle.com/dotnetperls-controls/enable1.txt
[download]

Using this URL instead of the one you used also stores a list of words to the output file, which I guess is the output you had expected.

Getting this URL from the Archive page without JavaScript is hard. Search the Monastery for related questions.

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re: downloading a file on a page with javascript Select or Download Code

Replies are listed 'Best First'.

Re^2: downloading a file on a page with javascript
by Aldebaran (Curate) on Apr 06, 2020 at 22:38 UTC

Where did you find the URL?

I cobbled it together together from the base url and the file I wanted.

If I point my mouse on the file and save the link,

I get the same thing. What I realize from your and bliako's post is that I underused the power of the browser to figure this out.

Using this URL instead of the one you used also stores a list of words to the output file, which I guess is the output you had expected.

Thx, choroba, that is indeed what I seek for my wordgames. With the correct url, my script gets the english dictionary. I decided to try it out with an older source post of yours: Re^7: Words in Words. "Correct" entries are words that have a properly-encompassing word. A hybrid is this:

Source:

#!/usr/bin/perl

use strict;   
use warnings;
use LWP::Simple;
use 5.016;
my $url = 'https://storage.googleapis.com/google-code-archive-download
+s/v2/code.google.com/dotnetperls-controls/enable1.txt';
my $file = '/home/hogan/Documents/phone/from_laptop/my_data/bb.txt';

getstore($url, $file);
##


open my $IN, '<', $file or die "$!";
my %words;
while (my $word = <$IN>) {
    chomp $word;
    undef $words{$word};
}

my %reported;
for my $word (keys %words) {
    my $length = length $word;

    for my $pos (0 .. $length - 1) {
        my $skip_itself = ! $pos;
        for my $len (1 .. $length - $pos - $skip_itself) {
            my $subword = substr($word, $pos, $len);
            next if exists $reported{$subword};
            next if $word eq $subword . q{s}
                 or $word eq $subword . q{'s};
            if (exists $words{$subword}) {
                say "$subword";
                undef $reported{$subword};
            }
        }
    }
}
[download]

Logophiles like me play gladly with such output. I speak english natively, so I'm rarely challenged with english vocabulary. The resulting list is fascinating:

$ grep phosphorylating bb.txt 
dephosphorylating
phosphorylating
$ grep aerially bb.txt 
aerially
subaerially
$ grep physiology bb.txt 
ecophysiology
electrophysiology
histophysiology
neurophysiology
pathophysiology
physiology
psychophysiology
$ grep quids bb.txt 
equids
liquids
nonliquids
quids
semiliquids
soliquids
squids
$ grep consciouses bb.txt 
consciouses
preconsciouses
subconsciouses
unconsciouses
$
[download]

Who knew that there were 4 different consciouses? I couldn't find an example that failed to have a larger including word.

Anyways, thanks for your comment that got me on the right track and also for the fun of replicating your "words within words" script.

"Perl scripting: great for pandemics...."

[reply]
[d/l]
[select]


Come for the quick hacks, stay for the epiphanies.
	PerlMonks