Changeset 628
- Timestamp:
- 10/05/07 16:55:40 (1 year ago)
- Files:
-
- trunk/server/scripts/memcached-tool (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/server/scripts/memcached-tool
r623 r628 109 109 # return format looks like this 110 110 # ITEM foo [6 b; 1176415152 s] 111 if (/^ITEM (\ w+) \[.* (\d+) s\]/) {111 if (/^ITEM (\S+) \[.* (\d+) s\]/) { 112 112 $keyexp{$1} = $2; 113 113 } … … 118 118 print $sock "get $k\r\n"; 119 119 my $response = <$sock>; 120 $response =~ /VALUE (\ w+) (\d+) (\d+)/;120 $response =~ /VALUE (\S+) (\d+) (\d+)/; 121 121 my $flags = $2; 122 122 my $len = $3;
