How to efficiently get a number of words from a text using perl? -

-

I need to get ~ 50 words before the text to type the users of my application. I have done the following : 

  Use strict, use precautions; Use utf8; Binomod (STDOUT, ': utf8'); My $ text = & lt; & Lt; TXT; Ð ÐμÐ³Ñ ?? Ð »Ñ ?? Ñ ​​?? Ð½Ð¸Ñ ?? Ðμ DD Ñ ?? Ð ° Ð · D ни поР· воР»n ?? вР° N ?? Ð'Ð ° N ?? Ñ ​​?? Ñ ​​?? Ñ ​​?? им Ñ ?? Ð ° Ð ± Ð »Ð¾Ð½Ð¸ в Ð'Ð ° ннÐÑÑ ?? Ðμ Ñ ?? D. Ð ?? овÐμÑ ?? ÐμÑ ?? о Ð ± n ?? кви dn ?? имвоР»D Ð¿Ñ ?? ÐÑÑ ?? Ñ ​​?? о Ñ ?? Ðμ Ñ ?? Ñ ​​?? впР° Ð'Ð ° N ?? Ñ ​​?? Ñ ​​?? Ñ ​​?? Ñ ​​?? Ð ° Ð Ð Ð Ñ? Ð Ð - Ñ? ÐμÐ ± Ðμ Ñ ?? и. Ð ?? Ð ° Ð¿Ñ ?? и Ð ÐμÑÑÑ ??, Ñ ?? ÐμÐ³Ñ ?? Ð »Ñ ?? Ñ? нР- ÑÑ Ñ ​​?? DD Ñ ?? Ð ° Ð · "test" Ð¿Ñ ?? ÐÑÑ ?? Ñ ​​?? оdn ?? ÐÑÑ ?? но Ñ ?? Ðμ Ñ ?? Ñ ​​?? впР° Ð '° Ñ ?? Ñ ​​?? Ñ ​​?? Ñ ​​?? имвоР»Ð½ÐÑÑ ??? ниР· "test" Ð ?? ожÐμÑ ?? Ðμ Ð'Ð ° вкР»n ?? Ñ ​​?? DN ?? Ðμ Ñ ?? Ðμжим, нÐμÑ ?? Ñ ​​?? Ð²Ñ ?? Ñ ​​?? ви Ñ ?? ÐμÐ »Ðμн ÐºÑ ?? м Ñ ?? Ð ° Ð · Ð »Ð¸ÐºÐ ° N ?? Ð ° мÐμжÐ'Ñ ?? мР° Ð »ÐºÐ¸ d гол Ðμми Ð ± n ?? кви, койÑÑ ?? о Ñ ?? Ðμ поР· вÐÐÐ »D Ð'Ð ° N ?? Ñ ​​?? впР° Ð'нÐμ- Ñ ?? Ñ ​​?? Ñ ​​?? о Ñ ?? Ð ° кР° и Ñ ?? "Test" иР»Ð¸" test "Ð ?? Ð Ð Ð ° иР· кР»Ñ ?? Ñ ​​?? ÐμнÐÐÑÑ ?? ÐÑÑ ?? Ñ ​​?? овР° Ð¿Ñ ?? Ð ° виР»Ð¾, Ð½Ñ ?? кои Ñ ?? имвоР»DN ?? Ð ° оÑÑ ?? оР± Ðμни d нÐμ Ñ ?? Ñ ​​?? впР° Ð'Ð ° N ?? Ñ ​​?? Ñ ​​?? Ñ ​​?? Ñ ​​?? Ð ° Ð Ð Ð Ñ? Ð Ð - Ñ? ÐμÐ ± Ðμ Ñ ?? и. Ð ?? мÐμÑ ?? Ñ ​​?? о Ñ ?? овР° N ?? Ðμ Ñ ?? игнР° Ð »DD · DN ?? Ð ° N ?? ... TXT my $ c = 0; My $ accumulated = substr ($ text, 0, 10); While ($ text = ~ / $ combined) / $ c + = 10; $ Accumulated = subtracut ($ text, 0, $ c); Print $ together, $ /; #sleep1; My @words = partition (/ \ s + /, $ accumulated); If (@words> = 49) {last; }}   
 This works fine, but I'm worried about the efficiency of the code.  
 Imagine that I do this for many people, many texts  
 
  
 "Text"> 
 Try:  
  #! Use / usr / bin / env perl strict; Use warnings; My $ text = & lt; & Lt; TXT; Ð ÐμÐ³Ñ ?? Ð »Ñ ?? Ñ ​​?? Ð½Ð¸Ñ ?? Ðμ DD Ñ ?? Ð ° Ð · D ни поР· воР»n ?? вР° N ?? Ð'Ð ° N ?? Ñ ​​?? Ñ ​​?? Ñ ​​?? им Ñ ?? Ð ° Ð ± Ð »Ð¾Ð½Ð¸ в Ð'Ð ° ннÐÑÑ ?? Ðμ Ñ ?? D. Ð ?? овÐμÑ ?? ÐμÑ ?? о Ð ± n ?? кви dn ?? имвоР»D Ð¿Ñ ?? ÐÑÑ ?? Ñ ​​?? о Ñ ?? Ðμ Ñ ?? Ñ ​​?? впР° Ð'Ð ° N ?? Ñ ​​?? Ñ ​​?? Ñ ​​?? Ñ ​​?? Ð ° Ð Ð Ð Ñ? Ð Ð - Ñ? ÐμÐ ± Ðμ Ñ ?? и. Ð ?? Ð ° Ð¿Ñ ?? и Ð ÐμÑÑÑ ??, Ñ ?? ÐμÐ³Ñ ?? Ð »Ñ ?? Ñ? нР- ÑÑ Ñ ​​?? DD Ñ ?? Ð ° Ð · "test" Ð¿Ñ ?? ÐÑÑ ?? Ñ ​​?? оdn ?? ÐÑÑ ?? но Ñ ?? Ðμ Ñ ?? Ñ ​​?? впР° Ð '° Ñ ?? Ñ ​​?? Ñ ​​?? Ñ ​​?? имвоР»Ð½ÐÑÑ ??? ниР· "test" Ð ?? ожÐμÑ ?? Ðμ Ð'Ð ° вкР»n ?? Ñ ​​?? DN ?? Ðμ Ñ ?? Ðμжим, нÐμÑ ?? Ñ ​​?? Ð²Ñ ?? Ñ ​​?? ви Ñ ?? ÐμÐ »Ðμн ÐºÑ ?? м Ñ ?? Ð ° Ð · Ð »Ð¸ÐºÐ ° N ?? Ð ° мÐμжÐ'Ñ ?? мР° Ð »ÐºÐ¸ d гол Ðμми Ð ± n ?? кви, койÑÑ ?? о Ñ ?? Ðμ поР· вÐÐÐ »D Ð'Ð ° N ?? Ñ ​​?? впР° Ð'нÐμ- Ñ ?? Ñ ​​?? Ñ ​​?? о Ñ ?? Ð ° кР° и Ñ ?? "Test" иР»Ð¸" test "Ð ?? Ð Ð Ð ° иР· кР»Ñ ?? Ñ ​​?? ÐμнÐÐÑÑ ?? ÐÑÑ ?? Ñ ​​?? овР° Ð¿Ñ ?? Ð ° виР»Ð¾, Ð½Ñ ?? кои Ñ ?? имвоР»DN ?? Ð ° оÑÑ ?? оР± Ðμни d нÐμ Ñ ?? Ñ ​​?? впР° Ð'Ð ° N ?? Ñ ​​?? Ñ ​​?? Ñ ​​?? Ñ ​​?? Ð ° Ð Ð Ð Ñ? Ð Ð - Ñ? ÐμÐ ± Ðμ Ñ ?? и. Ð ?? мÐμÑ ?? Ñ ​​?? о Ñ ?? овР° N ?? Ðμ Ñ ?? игнР° Ð »DD · DN ?? Ð ° N ?? ... TXT my @words = $ text = ~ m / \ * * (\ S +) / gmsx; $ # Word = 49; Print "@words \ n";

Comments

Post a Comment

Popular posts from this blog

qt - switch/case statement in C++ with a QString type -

-
I want to use switch-case in my program but the compiler generates an error. How can I use the switch statement with QString ? The compiler gives me this error: The expression of the switch type 'QString' is invalid My code is as follows : boolStopWord (the word QString) {bool flag = false; Switch (word) {case "the": flag = true; break ; "On" case: flag = true; break ; Case "in": flag = true; break ; Case "your": flag = true; break ; Case "near": flag = true; break ; Case "all": flag = true; break ; Case "this": flag = true; break ; } Return flag; } How do I use the switch statement with a Caststring ? You can not use the switch statement in C ++ language with integral or enum types. You can formally enter the square type of object in the switch statement, but this means that the compiler will look for a user-defined conversion to convert it to an integral or enum type.
Read more

python - sqlite3.OperationalError: near "REFERENCES": syntax error - foreign key creating -

-
I'm trying to create a predefined key after checking the manual and I wrote it: Db.execute ("create table" Table 2 (id, integer primary key, somedata integer) "db.execute" (table creation table 2 does not exist (name text, maintain reference (id) ") and found this: sqlite 3. Operation error: near" references ": syntax error Your second ligne is wrong db.execute ("create table if table does not exist 2 (name text, my_id integer, foreign key (my_id) reference Maintenance (ID)) ") as explained
Read more

Python's equivalent for Ruby's define_method? -

-
What is a Python equivalent for Ruby's define_method , which is the dynamic generation of class methods will allow? (As can be seen in Wikipedia) Functions are first-class objects in Python and assign them The properties of a class or an example can be a way of doing the same thing as a Wikipedia example: colors = {"black": "000", "red": "F00", "green": "0f0", "yellow": "ff0", "blue": "00f", "magenta": "fff", "cyan": "0ff", "white": " FFF "} Class MyStream (ARR): Pass for Name, Code in colors.iteritems (): def _in_colour ( W code = code): return '& lt; Span style = "color:% s" & gt;% s & lt; / Span & gt; ' % (Code, self) setter (histrive, "in_" + name, _in_ color)
Read more