Подверсия большой repos импорт/контроль

Я предполагаю, что ваш файл запросов будет выглядеть так, как показано ниже. Пожалуйста, попробуйте это решение Perl

$ cat query_ip.txt
# Query 1:
select a b c from
tab
# Hosts ip-127-8-8-1
where a = '1'

# Query 2:
select a b c from
tab2
# Hosts ip-127-0-0-1
where a = '1'

# Query 3:
select a b c from
tab3
# Hosts ip-127-9-9-1
where a = '1'

$  perl -0777 -ne ' 
 Я предполагаю, что ваш файл запросов будет выглядеть так, как показано ниже. Пожалуйста, попробуйте это решение Perl 
 [110] 
 или попробуйте это. 
 
$ perl -0777 -ne ' while( /(# Query.+?)(# Query.+|\Z)/smg ) { $x=$1 ; 
 Я предполагаю, что ваш файл запросов будет выглядеть так, как показано ниже. Пожалуйста, попробуйте это решение Perl 
 [110] 
 или попробуйте это. 
 [111]="$2"; print "$x\n" if not $x=~/ip-127-0-0-1/ } ' query_ip.txt
# Query 1:
select a b c from
tab
# Hosts ip-127-8-8-1
where a = '1'


# Query 3:
select a b c from
tab3
# Hosts ip-127-9-9-1
where a = '1'
$
.="# Query "; while( /(# Query.+?)(# Query.+)/smg ) { $x=$1 ; 
 Я предполагаю, что ваш файл запросов будет выглядеть так, как показано ниже. Пожалуйста, попробуйте это решение Perl 
 [110] 
 или попробуйте это. 
 
$ perl -0777 -ne ' while( /(# Query.+?)(# Query.+|\Z)/smg ) { $x=$1 ; 
 Я предполагаю, что ваш файл запросов будет выглядеть так, как показано ниже. Пожалуйста, попробуйте это решение Perl 
 [110] 
 или попробуйте это. 
 [111]="$2"; print "$x\n" if not $x=~/ip-127-0-0-1/ } ' query_ip.txt
# Query 1:
select a b c from
tab
# Hosts ip-127-8-8-1
where a = '1'


# Query 3:
select a b c from
tab3
# Hosts ip-127-9-9-1
where a = '1'
$
="$2"; print $x if not $x=~/ip-127-0-0-1/ } ' query_ip.txt
# Query 1:
select a b c from
tab
# Hosts ip-127-8-8-1
where a = '1'

# Query 3:
select a b c from
tab3
# Hosts ip-127-9-9-1
where a = '1'

$

или попробуйте это.

$ perl -0777 -ne ' while( /(# Query.+?)(# Query.+|\Z)/smg ) { $x=$1 ; 
 Я предполагаю, что ваш файл запросов будет выглядеть так, как показано ниже. Пожалуйста, попробуйте это решение Perl 
 [110] 
 или попробуйте это. 
 [111]="$2"; print "$x\n" if not $x=~/ip-127-0-0-1/ } ' query_ip.txt
# Query 1:
select a b c from
tab
# Hosts ip-127-8-8-1
where a = '1'


# Query 3:
select a b c from
tab3
# Hosts ip-127-9-9-1
where a = '1'
$