while($some_data=~ m/some_regex/)
{
# Do some stuff
}
####
while($some_data=~ m/some_regex/g)
{
# Do some stuff
}
##
##
$to_replace='some_string';
$my_string=~ s/$to_replace/$better_data/;
##
##
$to_replace='a caret looks like ^';
$my_string=~ s/$to_replace/$better_data/;
##
##
$to_replace='a caret looks like ^';
$my_string=~ s/\Q$to_replace\E/$better_data/;
##
##
$to_replace=qr/^your_regex_here$/;
$my_string=~ s/$to_replace/$better_data/;
##
##
while($string=~ m/(reg)(ex)/g)
{
$string=~ s/$1$2/$1ister/;
}
##
##
$string=~ s/(reg)ex/$1ister/g;
##
##
$dummy=$string;
while($dummy=~ m/(reg)(ex)/g)
{
$string=~ s/$1$2/$1ister/;
}
##
##
while($string=~ m/(reg)(ex)/)
{
$string=~ s/$1$2/$1ister/;
}
##
##
for($i=0;$i<@array;$i++)
{
if(&should_delete($i))
{
delete $array[$i];
}
}
##
##
for($i=0;$i<@array;$i++)
{
if(&should_delete($i))
{
splice @array,$i,1;
}
}
##
##
for($i=0;$i<@array;$i++)
{
if(&should_delete($i))
{
splice @array,$i,1;
$i--;
}
}
##
##
@array = @array[grep {!should_delete($_)} 0..$#array];
##
##
$rec_sep=$/;
undef $/;
$slurp=;
# Regex matching here ...
##
##
$rec_sep=$/;
undef $/;
$slurp=;
print "Enter something: ";
$something=;
##
##
$rec_sep=$/;
undef $/;
$slurp=;
$/=$rec_sep;
print "Enter something: ";
$something=;
##
##
my $data = do {local $/; };
##
##
open COMMAND,'-|','some_command';
$input=;
#... bla bla
$pid=fork
#....bla bla
wait if $pid
#... bla bla
##
##
open COMMAND,'-|','some_command';
$input=;
close COMMAND;
#... bla bla
$pid=fork
#....bla bla
wait if $pid
#... bla bla
##
##
open COMMAND,'-|','some_command';
$input=;
#... bla bla
$pid=fork
#....bla bla
waitpid $pid,0;
#... bla bla
##
##
undef $_ for keys %SIG;
fork while 1;