ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Can't call method "scheme" on an undefined value at C:/Perl/lib/HTTP/Cookies.pm line 44, <URLS> line 71.

sub next{
open(A, ">>a.txt");
open(URLS, "urls.txt");
@urlo = <URLS>;
$client = LWP::UserAgent->new( ) or die;
$client->agent('Opera/9.0 (Windows NT 5.1; U; en; (R1 1.5))');
$client->cookie_jar( $cookie_jarr ); 
$answer = $client->get($urlo);
foreach $urlo (@urlo) 
{@qwerty = $answer->content =~ /(.*)/g;}
print A join "\n", @qwerty;}

foreach $urlo (@urlo) 
{ $answer = $client->get($urlo);
@qwerty = $answer->content =~ /(.*)/g;
print A join "\n", @qwerty;
}
}

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

sub next {
  open(A, ">>a.txt");
  # Принято использовать вид open my $A, '>>', 'a.txt' or die "open() error: $!\n";
  
  open(URLS, "urls.txt");
  # open my $URLS, '<', 'urls.txt' or die "Shit, an error: $!\n!";
  
  @urlo = <URLS>;
  $client = LWP::UserAgent->new( ) or die;
  $client->agent('Opera/9.0 (Windows NT 5.1; U; en; (R1 1.5))');
  $client->cookie_jar( $cookie_jarr ); 
  $answer = $client->get($urlo);
  # А не будет ли тут Undefined переменной? $urlo не есть @urlo, также не есть его элемент
  foreach $urlo (@urlo) {
    @qwerty = $answer->content =~ /(.*)/g;
  }
  # тут вообще я упал и не могу встать, массив @qwerty при каждом проходе цикла переписывается. Зачем? Что вообще хотелось получить этой регуляркой?
  
  print A join "\n", @qwerty;
  
  # А файлы принято закрывать. close $URLS; close $A;
}

!#usr/bin/perl -w

$im_thinking_of=int(rand10);
print "Введите число от 0 до 9:";
$guess=<STDIN>;
chomp $guess;


if ($guess > $im_thinking_of) {
       print "Перебор!\n";
        } elsif ($guess < $im_thinking_of) {
		print "Недобор!\n";
        } else {
		print "Вы угадали!\n";
}

Can't modify not in scalar assignment at C:\programs\game.pl line 3, near ");"