Advertisement
Guest User

Untitled

a guest
Feb 19th, 2018
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.39 KB | None | 0 0
  1.                 if ( $ch_type ne 'aggregator' ){
  2.                         my $tcpport = $CLICKHOUSE_PORTS->{ $ch_type } ->{tcp_port};
  3.  
  4.                         yabs_system("cat $backup_dict_path | perl -pe 's|(<where>BaseNo\\s*=\\s*)\\d+|\${1}$baseno|; s|(<port>)9000|\${1}$tcpport|;' > $dict_file_path", {
  5.                                 tee => 1
  6.                         });
  7.                 }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement