Yes, I know, perl is weird.
But I absolutely don't know.
I simply tried.

I open a terminal, in my case cygwin.
then I type perl <enter>
then I paste
************* text to paste ***************** 
my $needSpecialCharacters = 1;
if ($needSpecialCharacters) { 
print 
"You Need special characters.
" . 
"Special Characters are:
" . 
q {` ~ ! @ # $ % ^ & * ( ) _ - + = \ | [ ] { } ' " ; : / ? . < > , } . 
"
Please enter at least one of them

"; 
}
__END__
************* end text to paste ************** 

it works.


While if I paste
************* text to paste ***************** 
my $needSpecialCharacters = 1;
if ($needSpecialCharacters) {
print
"You Need special characters.
" .
"Special Characters are:
" .
q /` # ~ ! @ $ % ^ & * ( ) _ - + = \ | [ ] { } ' " ; : / ? . < > , / .
"
Please enter at least one of them

";
}
__END__
************* end text to paste ************** 
It hangs.

I don't know why, I simply tried.

-- 
<https://forum.pspad.com/read.php?2,66321,69888>
PSPad freeware editor https://www.pspad.com

Odpovedet emailem