When I run your code, with or without the `sleep` commands, it seems to
work. I opened the source code of the page using my browser because with
just `curl` it gave me a different page. I assume this is what you
created CurlImpersonate for, to pretend to the website that you're a
"real browser" and not a script.
rakudo -e ' my $NewRev = "icedrive_download.html".IO.slurp;
# <meta name="description" content="Download Icedrive 3.56 -
Back up and access your files from wherever w
ith this cloud solution, capable of acting as if it were a physical
drive on your computer">
# print "1.2\n";
$NewRev ~~ s/ .*? $( Q[Download Icedrive ] ) //;
# print "1.5\n";
$NewRev ~~ s/ $( Q[ ] ) .* //;
# print "2\n";
if $NewRev.chars > 40 { $NewRev = 0; }
# print "3\n";
#
https://cdn.icedrive.net/static/apps/win/IcedriveSetup-v3.56.exe --output
# print "4\n";
my $ClickHere =
Q[https://cdn.icedrive.net/static/apps/win/IcedriveSetup-v] ~ $NewRev ~
".exe";
# print "5\n";
say "SubName: \n" ~
" NewRev = <$NewRev>\n" ~
" ClickHere = <$ClickHere>\n\n"; '
SubName:
NewRev = <3.56>
ClickHere =
<https://cdn.icedrive.net/static/apps/win/IcedriveSetup-v3.56.exe>
I'm sorry, I'm not sure what exactly is going wrong when you try it that
causes the difference :(
Hope that helps anyway,
- Timo
On 3/4/26 01:36, ToddAndMargo via perl6-users wrote:
I did not change anything in the print or the sleep command.
This is the web stie I am carving the new revision out of:
view-source:https://www.softpedia.com/get/System/Back-Up-and-Recovery/Icedrive.shtml
Line 572: <meta name="description" content="Download Icedrive 3.56 -
Back up and access your files from wherever with this cloud solution,
capable of acting as if it were a physical drive on your computer">
The first regex removed everthing before the 3.56 and the
second one removed everythig after the 3.56.
$RunResult = CurlImpersonate( $WebSite, "", $SubName );
if $RunResult.exitcode != 0 {
$Status +|= %StatusHash<DOWNLOAD_FAIL>;
PrintRedErr( "$SubName: failed to download WebSite\n
<$WebSite>\n" );
} elsif $RunResult.stdout.contains( Q[content="Download Icedrive]
) {
$NewRev = $RunResult.stdout;
# <meta name="description" content="Download Icedrive 3.56 -
Back up and access your files from wherever with this cloud solution,
capable of acting as if it were a physical drive on your computer">
# print "1.2\n";
sleep .2;
$NewRev ~~ s/ .*? $( Q[Download Icedrive ] ) //;
# print "1.5\n";
sleep .2;
$NewRev ~~ s/ $( Q[ ] ) .* //;
# print "2\n";
sleep .2;
if $NewRev.chars > 40 { $NewRev = 0; }
# print "3\n";
sleep .2;
#
https://cdn.icedrive.net/static/apps/win/IcedriveSetup-v3.56.exe --output
# print "4\n";
$ClickHere =
Q[https://cdn.icedrive.net/static/apps/win/IcedriveSetup-v] ~ $NewRev
~ ".exe";
# print "5\n";
if $Debug { PrintGreen "$SubName: \n" ~
" NewRev = <$NewRev>\n" ~
" ClickHere = <$ClickHere>\n\n"; }
} elsif $RunResult.stdout.contains( Q[Sorry, you have been] &&
Q[blocked] ) { ...
On 3/3/26 07:35, Timo Paulssen via perl6-users wrote:
Hi Todd,
did you accidentally change more than just the sleep and print
commands, or did you give us an older version of the code that you ran?
I spot a difference where the code that doesn't work has "Icedrive"
and the one that does work has "drive", and the thing you're trying
to match against seems to have "drive" and not "Icedrive".
Hope that helps,
- Timo
On 3/3/26 03:28, ToddAndMargo via perl6-users wrote:
Hi All,
Fedora 43
RakudoPkgFedora43-01.01.x86_64.rpm
This regex does not work:
$NewRev = $RunResult.stdout;
# <meta name="description" content="Download drive 3.56 -
Back up and access your files">
$NewRev ~~ s/ .*? $( Q[Download Icedrive ] ) //;
$NewRev ~~ s/ $( Q[ ] ) .* //;
if $NewRev.chars > 40 { $NewRev = 0; }
Way to many characters.
But this does:
$NewRev = $RunResult.stdout;
# <meta name="description" content="Download drive 3.56 -
Back up and access your files">
sleep .2;
$NewRev ~~ s/ .*? $( Q[Download drive ] ) //;
sleep .2;
$NewRev ~~ s/ $( Q[ ] ) .* //;
sleep .2;
if $NewRev.chars > 40 { $NewRev = 0; }
The sleep statements were originally debugging print statements.
The above worked when the print statement were active but
not when I commented them out. So I substituted sleep for
print and it still worked.
What the ....
Yours in Confusion,
-T
