Так что я никогда не использовал Perl до сегодняшнего дня, и делаю это только потому, что мой профессор привел пример этого задания с Perl. Я сфотографировал его код и использую именно это, но он не работает для меня
#!/usr/bin/ perl
open(FFF, "<usb256.001");
while(<FFF>)
{
if ( /([a-z0-9_.]+\@[a-z0-9_.]+\.[a-z0-9_](2,))/gi )
{
$email = $1;
print = "$email\n";
}
}
close(FFF);
он говорит, что не может изменить печать в скалярном назначении в строке 9 datafinder.pl, рядом с "" $ по электронной почте \ п «;» чего я не понимаю. Мой профессор использовал linux, а я windows, поэтому я не знаю, может ли это вызывать проблемы. Кроме того, я не знаю, что означает «gi» в конце оператора if, если кто-то может дать понимание этого вопроса. Спасибо за любую помощь!