{
chomp;
s/create account admin sa//g;
s/11388019//g;
print OF $_;
}
#!/usr/bin/perl -w
use strict;
open(F1, "<","test.txt") || die $!;
while(<F1>)
{
chomp;
/^\bValue\b\s+:\s+([A-Z0-9]+)$/g;
next unless $1;
if ($1 eq "A1")
{
print "$_\n" and exit 0;
}
}
close(F1);
uihkjh
dsfkljsdklf
Value : A1
dfds
use strict;
use warnings;
use utf8;
open( F1, "text.txt" );
my @raw = <F1>;
chomp (@raw);
foreach my $line (@raw) {
my ($val) = $line =~ m/^\bValue\b\s+:\s+([A-Z0-9]+)$/o;
next unless $val;
if ( $val eq "A1" ) {
print "$line \n";
}
}
close(F1);
int A[3];
int *ptr = A; // ptr указывает на A[0]
ptr += 2; // ptr указывает на A[2]
ptr --; // ptr указывает на A[1]
ptr = ptr+10; // ptr указывает за пределы массива A