equal
deleted
inserted
replaced
|
1 #!perl |
|
2 # Copyright (c) 2003-2009 Nokia Corporation and/or its subsidiary(-ies). |
|
3 # All rights reserved. |
|
4 # This component and the accompanying materials are made available |
|
5 # under the terms of "Eclipse Public License v1.0" |
|
6 # which accompanies this distribution, and is available |
|
7 # at the URL "http://www.eclipse.org/legal/epl-v10.html". |
|
8 # |
|
9 # Initial Contributors: |
|
10 # Nokia Corporation - initial contribution. |
|
11 # |
|
12 # Contributors: |
|
13 # |
|
14 # Description: |
|
15 # Create a batch file to select certain records from a libpcap file. |
|
16 # Called from cvtppplog.bat |
|
17 # |
|
18 # |
|
19 |
|
20 $, = ' '; # set output field separator |
|
21 $\ = " "; # set output record separator |
|
22 |
|
23 print 'editcap','-r',$ARGV[0],$ARGV[1],; |
|
24 while (<STDIN>) { |
|
25 ($Fld1) = split(' ', $_, 9999); |
|
26 print $Fld1; |
|
27 } |