Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- @rem = '--*-Perl-*--
- @echo off
- if "%OS%" == "Windows_NT" goto WinNT
- C:/xampp/perl/bin/perl -x -S "%0" %1 %2 %3 %4 %5 %6 %7 %8 %9
- goto endofperl
- :WinNT
- C:/xampp/perl/bin/perl -x -S %0 %*
- if NOT "%COMSPEC%" == "%SystemRoot%\system32\cmd.exe" goto endofperl
- if %errorlevel% == 9009 echo You do not have Perl in your PATH.
- if errorlevel 1 goto script_failed_so_exit_with_non_zero_val 2>nul
- goto endofperl
- @rem ';
- #!perl
- #line 15
- eval 'exec C:\xampp\perl\bin\perl.exe -S $0 ${1+"$@"}'
- if $running_under_some_shell;
- #!C:/xampp/perl/bin/perl.exe -w
- #################################################################################################
- use strict;
- use warnings;
- use diagnostics;
- #################################################################################################
- my $str=" q23&password=123\n\n\n234\n\n\n";
- my $tmp;
- if ($str =~ /&password=([^&]*)$/m) {
- $tmp=$1;
- }
- print $tmp."\n";
- #################################################################################################
- __END__
- :endofperl
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement