X-Git-Url: https://gerrit.o-ran-sc.org/r/gitweb?a=blobdiff_plain;f=bin%2Fsplit_trace.pl;fp=bin%2Fsplit_trace.pl;h=03858d9e57eb09150d8f165d254f0228cb346f98;hb=07495effe193ca3f73c3bf0ce417068f9ac9dcdd;hp=a9f000fb2af8e2e2c0c8b6987d96299d21562c97;hpb=93d248304a68de7a8f9daf4aa74f9ee4cd27410c;p=com%2Fgs-lite.git diff --git a/bin/split_trace.pl b/bin/split_trace.pl index a9f000f..03858d9 100755 --- a/bin/split_trace.pl +++ b/bin/split_trace.pl @@ -1,36 +1,36 @@ -#! /usr/bin/perl - -# ------------------------------------------------ -# Copyright 2014 AT&T Intellectual Property -# Licensed under the Apache License, Version 2.0 (the "License"); -# you may not use this file except in compliance with the License. -# You may obtain a copy of the License at -# -# http://www.apache.org/licenses/LICENSE-2.0 -# -# Unless required by applicable law or agreed to in writing, software -# distributed under the License is distributed on an "AS IS" BASIS, -# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. -# See the License for the specific language governing permissions and -# limitations under the License. -# ------------------------------------------- - -$outfile_base = "tracefile_"; -$trace_cnt = 0; - -$outfile = $outfile_base . $trace_cnt . ".txt"; -open O,">$outfile"; - -while($line=<>){ - if($line =~ /rts:\[.*\]: Started Logging/){ - close O; - $trace_cnt ++; - $outfile = $outfile_base . $trace_cnt . ".txt"; - open O,">$outfile"; - } - print O $line; -} -close O; - - - +#! /usr/bin/perl + +# ------------------------------------------------ +# Copyright 2014 AT&T Intellectual Property +# Licensed under the Apache License, Version 2.0 (the "License"); +# you may not use this file except in compliance with the License. +# You may obtain a copy of the License at +# +# http://www.apache.org/licenses/LICENSE-2.0 +# +# Unless required by applicable law or agreed to in writing, software +# distributed under the License is distributed on an "AS IS" BASIS, +# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +# See the License for the specific language governing permissions and +# limitations under the License. +# ------------------------------------------- + +$outfile_base = "tracefile_"; +$trace_cnt = 0; + +$outfile = $outfile_base . $trace_cnt . ".txt"; +open O,">$outfile"; + +while($line=<>){ + if($line =~ /rts:\[.*\]: Started Logging/){ + close O; + $trace_cnt ++; + $outfile = $outfile_base . $trace_cnt . ".txt"; + open O,">$outfile"; + } + print O $line; +} +close O; + + +