That is odd. Your code works fine when I simply ask to show the content.

#!/usr/bin/perl -w
use strict;

use WWW::Mechanize;

my $mech = WWW::Mechanize->new;
my $url = 'http://www.vegasinsider.com/nfl/odds/las-vegas/line-movemen
+t/bengals-@-ravens.cfm/date/9-07-08/time/1300#J';

save_file($url);

sub save_file {
    my $mech = WWW::Mechanize->new;
    $mech->timeout(60);

    my @game = @_;
    
    foreach(@game) {
        print "$_\n";
        $mech->get($url) or die "Can't get url";
        print $mech->content;
    }
}

[download]

As long as you initially quote the url in single quotes it should not interpolate no matter how it is used. As long as I cannot reproduce the error I cannot fully help you to diagnose the problem.

There is one thing that I feel obligated to bring to the table that I think you may have missed:

NOTE: Because :content_file causes the page contents to be stored in a file instead of the response object, some Mech functions that expect it to be there won't work as expected. Use with caution.

Unfortunately, that does not answer why your code works outside a subroutine.

I'm so adjective, I verb nouns!

chomp; # nom nom nom

In reply to Re^5: Anyone know why I can't scrape this page? by Lawliet
in thread Anyone know why I can't scrape this page? by lv211

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.