Как извлечь первые два символа строки в сценарии оболочки?

Question

Например, учитывая:

USCAGoleta9311734.5021-120.1287855805

Я хочу извлечь только:

US

Answer 1

perl -ple 's/^(..).*/$1/'

Answer 2

если mystring = USCAGoleta9311734.5021-120.1287855805

print substr(mystring,0,2)

будет печатать США

, где 0 - начальная позиция, а 2 - как многозначные символы читать

Answer 3

Это то, что вы после?

my $string = 'USCAGoleta9311734.5021-120.1287855805';

my $first_two_chars = substr $string, 0, 2;

ref: substr