Regular expression search and replace in Sublime Text

Regular expression search and replace in Sublime Text - regex

I have an array in Sublime Text with every city in the U.S as the value and a code which includes the state abbreviation as the key. It looks a little something like this:
$array = array(
"United States of America" => array(
"USAK0001" => "Adak",
"USAK0002" => "Adak Island",
"USAK0003" => "Akiachak",
"USAK0004" => "Akiak",
"USAK0005" => "Akutan",
"USAK0006" => "Alakanuk",
"USAK0007" => "Aleknagik",
"USAK0008" => "Allakaket",
"USAL0028" => "Arlington",
"USAL0029" => "Ashford",
"USAL0030" => "Ashland",
"USAL0031" => "Ashville",
"USAL0032" => "Athens",
"USAL0033" => "Atmore",
"USAL0034" => "Attalla",
"USAL0035" => "Auburn",
"USAL0036" => "Auburn University",
"USAL0037" => "Autaugaville",
"USAL0038" => "Axis",
"USAL0039" => "Baileyton",
)
);
What I need to do is a search and replace to append the state name to the value, based on finding the two letter state abbreviation in the array key code.
So for example, a search that finds "AK" in the key and adds "Alaska" to the value, so they would look like this:
"USAK0001" => "Alaska, Adak",
"USAK0002" => "Alaska, Adak Island",
"USAK0003" => "Alaska, Akiachak",
"USAK0004" => "Alaska, Akiak",
"USAK0005" => "Alaska, Akutan",
"USAK0006" => "Alaska, Alakanuk",
Every key is 8 characters long, but I really don't even know how to begin trying to do this in Sublime Text.

Thanks to nhahtdh, I did this quite easily with a PHP script to merge it. It ended up being as simple as the below, with no need for regex! (Huzzah!)
function merge_states_into_cities( $states, $cities ) {
foreach ( $cities as $key => $array ) {
foreach ( $array as $code => $city ) {
foreach ( $states as $abbrv => $state ) {
if ( strpos( $code, $abbrv, 2 ) ) {
echo '"' . $code . '" => "' . $state . ', ' . $city . '",<br>';
}
}
}
}
}

Related

500 Server Error from charge-credit-card.php Authorize.net

Test if a string contains the key of a hash in Perl

I have a string and want to tell if it contains the key of a hash and if it does I would like to print the value of the hash like so:
#!/usr/bin/perl -w
my %h = ( 'key1' => 'v1', 'key2' => 'v2', 'key3' => 'v3' );
my $str = "this is a string containing key1\n";
if ($str contains a key of %h){
print the value of that key; #i.e v1
}
Whats the best way to do this? (Preferably concise enough to contain in an if statement)

#!/bin/perl -w
my %h = ( 'key1' => 'v1', 'key2' => 'v2', 'key3' => 'v3' );
my $str = "this is a string containing key1\n";
while (($key, $value) = each %h) {
if (-1 != index($str, $key)) {
print "$value\n";
}
}

If you have to search through multiple strings but have just the one unchanging hash, it might be faster to compile the hash keys into a regexp upfront, and then apply that regexp to each string.
my %h = ( 'key1' => 'v1', 'key2' => 'v2', 'key3' => 'v3' );
my $hash_keys = qr/${\ join('|', map quotemeta, keys %h) }/;
my #strings = (
"this is a string containing key1\n",
"another string containing key1\n",
"this is a string containing key2\n",
"but this does not\n",
);
foreach my $str (#strings) {
print "$str\n" if $str =~ $hash_keys;
}

In some cases (big hash, keys are words and you don't want them to match sub-words) this could be the right approach:
my %h = ( 'key1' => 'v1', 'key2' => 'v2', 'key3' => 'v3' );
my $str = "this is a string containing key1 and key3 but notkey2, at least not alone\n";
while ($str =~ /(\w+)/g) {
my $v = $h{$1};
print "$v\n" if defined $v;
}

I'm getting 'The request must contain the parameter Signature' although I'm actually supplying it

I'm trying the AWS Product Advertisement API in PhP.
Here is the PhP code that I've copied from net.
function callSOAPFunction($function, $array){
$timeStamp = gmdate("Y-m-d\TH:i:s\Z");
//service is always the same, $function is operation
$string = 'AWSECommerceService'.$function.$timeStamp;
$signature = base64_encode(hash_hmac("sha256", $string, 'MySecretKey', True));
$params = array('Service' => 'AWSECommerceService',
'AssociateTag' => 'Wassup?',
**'Signature' => $signature,**
'AWSAccessKeyId' => 'MyKey'
'Request' => array($array),
'Timestamp' => $timeStamp
);
$client = new
SoapClient("http://webservices.amazon.com/AWSECommerceService/AWSECommerceService.wsdl",
array('exceptions' => 0));
return $client->__soapCall($function, array($params));
}
$array = array('Operation' => 'ItemSearchRequest',
'ItemPage' => 3,
'SearchIndex' => 'DVD',
'ResponseGroup' => 'Large',
'Keywords' => 'Karate');
$result = callSOAPFunction("ItemSearch", $array);
Although I'm including the signature parameter, I'm still getting the error.

Perl: Splitting a hash into several based on its keys?

Let's say that I have a hashref whose Data::Dumper output looks like this:
$VAR1 = {
foo_0 => 'foo_zero',
foo_1 => 'foo_one',
bar_0 => 'bar_zero',
bar_1 => 'bar_one'
}
I would like to split this hash into two based on its keys as shown below but I don't know how to do this:
$VAR1 = {
foo_0 => 'foo_zero',
foo_1 => 'foo_one'
},
$VAR2 = {
bar_0 => 'bar_zero',
bar_1 => 'bar_one'
}
The keys of the first hash match /foo_[\d]/ while those of the second hash match /bar_[\d]/.
If you could kindly tell me how to do this (or hint me some search keywords) I would appreciate it.
Regards,
Christopher Smith

The other solutions posted so far work, but are quick and dirty. They need to be changed when the input patterns change, and assume only two patterns. This generalised solution does not suffer from that: it needs no change, and it takes any number of patterns.
sub classify_hashref {
my ($href, %p) = #_;
my $r;
for my $hkey (keys %{ $href }) {
for my $pkey (keys %p) {
$r->{$pkey}{$hkey} = $href->{$hkey}
if $hkey =~ $p{$pkey};
}
}
return $r;
}
my $h = {
foo_0 => 'foo_zero',
foo_1 => 'foo_one',
bar_0 => 'bar_zero',
bar_1 => 'bar_one'
};
classify_hashref($h, foo_like => qr/^foo_/, looks_like_bar => qr/^bar_/);
# {
# looks_like_bar => {
# bar_0 => 'bar_zero',
# bar_1 => 'bar_one'
# },
# foo_like => {
# foo_0 => 'foo_zero',
# foo_1 => 'foo_one'
# }
# }

I'm assuming that your hash reference is $foo_ref. You didn't state what would happen if your hash key is neither a foo or a bar. You could do one of three things:
You have to hash references. One of foo keys and one of all other keys.
You throw out keys that are neither foo keys or bar keys. (This is what I did).
You have a third hash which stores all non-foo and non-bar keys.
The program below:
#! /usr/bin/env perl
use strict;
use warnings;
use feature qw(say);
use Data::Dumper;
my $foo_re = qr/^foo_/;
my $bar_re = qr/^bar_/;
my $foo_ref = {
foo_0 => "foo_zero",
foo_1 => "foo_one",
bar_0 => "bar_zero",
bar_1 => "bar_one",
};
my $bar_ref = {};
foreach my $key (keys %{$foo_ref}) {
if (not $key =~ $foo_re) {
# Remove if clause to store all non-foo keys in $bar_re
$bar_ref->{$key} = $foo_ref->{$key} if $key =~ $bar_re;
delete $foo_ref->{$key}
}
}
say Dumper $foo_ref;
say Dumper $bar_ref;

I'm assuming that all your hash keys has one of the 2 provided patterns. If not, then you should specify more exactly what you have and what you expect.
If you want to process the output of the dump, I'm also assuming it has a correct format suitable for eval. Just put your output inside q( and ):
# ...
my $VAR1;
eval q(
$VAR1 = {
foo_0 => 'foo_zero',
foo_1 => 'foo_one',
bar_0 => 'bar_zero',
bar_1 => 'bar_one'
}
);
my $h1 = {};
my $h2 = {};
for my $k ( keys %{$VAR1} ) {
if ( $k =~ /foo_\d/ ) {
$h1->{$k} = $VAR1->{$k};
next;
}
$h2->{$k} = $VAR1->{$k}; # the remaining /bar_\d/ case
}
# use your new $h1 and $h2 hasrefs
# ...
You will get 2 new hasrefs $h1 and $h2.
If you have other cases besides these 2, you shoul put everyone inside an if, not only the first.
This is not a complete script, just a snippet.

normalizing results from the graph or fql.query

From my experience there's no 1:1 correlation between "object properties" being returned from the FQL tables to that of the new graph API objects. There's so many more properties on the FQL tables than there are in the graph from what I've seen. Trying to get them tied together would be like giving a cat a bath. It can be done, but it's going to be painful!!
My suggestions would be to determine from the project requirements what you're trying to accomplish and then determine whether FQL or Graph API is your best route to getting to each requirement. One requirement might be easier done with the graph, and another using FQL. Good luck.

We Keep Coding

c++ django amazon-web-services regex python-2.7 google-cloud-platform list unit-testing opengl ember.js

Regular expression search and replace in Sublime Text - regex

Related

500 Server Error from charge-credit-card.php Authorize.net

Test if a string contains the key of a hash in Perl

I'm getting 'The request must contain the parameter Signature' although I'm actually supplying it

Perl: Splitting a hash into several based on its keys?

normalizing results from the graph or fql.query

Categories

Resources